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

Var x, y: char;

i:integer;

begin

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

y:=20;

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

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

ehd.

Question

Поля

12 декабря, 22:08

+5

Ответы (1)

Знаете ответ на вопрос?

Викентий · Answer 1

Var

i, y, x:integer;

begin

writeln (введите x) ;

y:=20;

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

writeln ('y = ', y) ;

end.

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