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