Question

Найдите и исправьте ошибки в программе:

Var x,y,i:real;

Begin

Read(′введите′ x);

Y:=10;

y:=y*x;

Wraiteln(y равен , y);

End.

Answer 1

Var x, y, i:real;
Begin
writeln( 'введите х');
read(x);
i:=10;
y:=i*x;
writeln('y =' , y);
end. 
скорее всего так