8. Что будет выведено на экран после выполнения фрагмента программы:
begin
a:=3;
if a>3 then a:=5*а else a:=sqr(a);
writeln (a);
end.

9

Объяснение:

a = 3

если a > 3 то a = 5 * a иначе a = a²

вывод a

если условие a > 3 верно a = 5 * a

если условие a > 3 не верно a = a²

a = 3

3 > 3   (нет)   условие не верно, поэтому выполняем вторую часть условного оператора

a = 3² = 9