Определи значение переменной a после выполнения фрагмента алгоритма при a=1 и a=18.
Ввод а
если a>5
то a:=a+20
иначе a:=a*10
всё
ответ:

Получилось: при а=1 - 10

                       при a= 18 - 38

Вот код на всякий:

1) Program znanija;

var a: integer;

begin

 a:= 1;

 if a>5 then  

 a:=a+20 else

 a:=a*10;

write('a = ',a);

end.

2) Program znanija;

var a: integer;

begin

 a:= 18;

 if a>5 then  

 a:=a+20 else

 a:=a*10;

write('a = ',a);

end.

И скриншоты: