Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

VarA,b,c,x,sum: integer;Y: real;BeginWriteLn(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 beginY:= 2*x-1;End else begin3*sqr(x)*x-1;End;End.