Работа в паскале, я вообще не шарю в нем, помогите пожалуйста сделать

Question

Работа в паскале, я вообще не шарю в нем, помогите пожалуйста сделать

---

Answer 1

Var A,b,c,x,sum: integer; Y: real; Begin WriteLn('vvedite x');ReadLn(x); WriteLn('vvedite a');ReadLn(a); WriteLn('vvedite b');ReadLn(b); WriteLn('vvedite c');ReadLn(c); Sum:= a+b+c; If sum > 20 then begin Y:= 2*x-1; End else begin 3*sqr(x)*x-1; End; End.

Comments

С телефона как мог

---

и так отлично, спасибо большое

---

WriteLn('vvedite x');ReadLn(x); должны быть на одной строчке? или на разных?

---

Без разницы вообще, хоть все в одну строку пиши