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