найдите все ошибки в программе паскаль и исправьте их Var x,y: char; i:integer; begin ...

Question

найдите все ошибки в программе паскаль и исправьте их

Var x,y: char;

i:integer;

begin

writeln (`введите` х);

y:=20;

if x:=5 then y:=y*x;

writeln (`y равен,y`);

ehd.

Answer 1

Var
i,y,x:integer;
begin 
writeln (введите x ); 
y:=20; 
if  x:=5 then y:=y*x; 
 writeln (`y =' ,y);
end.