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

Question

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

Var x,y,i:real;

Begin

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

Y:=10;

y:=y*x;

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

End.

Comments

условие задачи напиши

---

там нет условия

---

что нужно найти хотя бы

---

по твоей программе нереально сориентироваться

---

djn dc` xnj vyt lfk exbntkm

---

вот всё что мне дал учитель

Answer 1

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

Comments

спасибо огромное преогромное=)