Найдите и исправьте ошибки в программе: Var x, y, i:real; Begin Read (′введите′ x); Y:=10; y:=y*x; Wraiteln (y равен, y); End.

исправленная версия:

program oshibki;

var

x, y:real; {переменная i не нужна; не скажу точно, но лучше real заменить на integer}

begin

writeln ('введите х'); {вывод и ввод информации осуществляется разными операторами}

read (x);

y:=10;

y:=y*x;

writeln ('у равен', y); {текст выводятся с помощью кавычек}

end.