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

Var x,y,i:real;

Begin

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

Y:=10;

y:=y*x;

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

End.

0

0