Напишите что получится в результате работы учасника программки А:=5 Write 39;Введите

В куске программы имеются ошибки.

 А:=5 // Пропущена точка с запятой в конце строчки.  

Write Введите число; // обязано быть Write (Введите число);  

 Read (x);

If xgt;0 then B:=x*x;

Write ответ=, А; //обязано быть Write (ответ=, А);

Если объявить переменные, воткнуть beginend, то  программа при всех введенных x будет выводить на экран значение переменной А:

ответ = 5.

А от х не зависит.

Текст рабочей программы:

program answer;

 Var A,B,x: integer;

 begin

 A:=5;

 writeln(Введите число);

 Read (x);

 If xgt;0 then B:=x*x;

 Write (ответ=, A);

 End.