Найти ошибку в программе и исправить ее var a,b,x:real; a=a*2; readln(a,b); s=a+b;...

Question

Найти ошибку в программе и исправить ее
var a,b,x:real;
a=a*2;
readln(a,b);
s=a+b;
writeln("x=",x);

Comments

это я не считаю, это самом собой разумеется

---

если одна не крическая то 2 это какие?

---

Тут операция с а делается до ввода её значения, что бредово. А после ввода используется в присваивании s, хотя должно быть х

---

ну и задание

---

ера не понятно что искать захахахаха

---

не пишите ерунды, это ни в каком паскале не "зайдет" без опиcания s

---

Что значит "дотошно"? Программа, не проходящая компиляцию - это уже не программа, а набор символов.

Answer 1

var a,b,x:real;
begin
a:=a*2;//Чисто теоретически эта строка тут ненужна, но так как это не ошибка оставлю
readln(a,b);
x:=a+b;
writeln('x=',x);
end.