Найдите все ошибки в программе паскаль и исправьте их var x,y: char; i: integer; begin writeln (`введите` х); y: =20; if x: =5 then y: =y*x; writeln (`y равен,y`); ehd.

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