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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.