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.