Найдите ошибку(и) в данной программе и запишите исправленную(ые) строку(и) в ответ. progaram primer; var a,x: real; write ‘введите число’; read x; if x< > o tnen a = x*x esle a=3x; write ‘ответ ’, а end.

Program PRIMER;
Var A,X:real;
Begin
Write ('ВВЕДИТЕ ЧИСЛО ');
Read (X);
IF X<>0 THEN A:= X*X ELSE A:=3*X;
Write ('ОТВЕТ ЗАДАЧИ ', A)
End.

var a, b, x: real;
begin
A:=5;
WRITE ('ВВЕДИТЕ ЧИСЛО');
READ (X);
IF X>0 THEN B:= X*X;
WRITE ('ОТВЕТ=', A);
end.