Напишите что получится в результате работы учасника программы А:=5 Write 'Введите число'; Read (x); If x>0 then B:=x*x; Write 'ответ=', А;
Программа запросит ввод числа. Ели число будет положительным, то переменной b будет присвоено значениеквадрата введенного числа, иначе на экран будет выведено "ответ=5"