Question

Информатика 9 класс срочно пожалуйста

Answer 1

Правильный код:
Program  PRIMER;
Var
a,x:real;
begin
Write ('Введите число');
read (x);
if (x<>0) then a:=x*x else a:=3*x;
end.