Ввести арифметическое выражение c тремя числами, в котором можно использовать сложение и вычитание. вычислить это выражение.

var y,x,alpfa1,alpfa2,beta,l: real; t1,t2: real; beginreadln(x,alpfa1,alpfa2,beta,l); t1: =sqr(x)+sqr(alpfa1); t2: =sqr(x)*x*(beta-alpfa2)-sqr(cos(l+2))*cos(l+2); if (t1=0)or (t2< 0) then write('y не определено') else begin y: =t1*t2; writeln('y=',y: 0: 2); end; readln; end.

не знаю можнт так

program arifmetika; var a,b,c,summa: integer; beginwrite('введите число а'); readln(a); write('введите число b'); readln(b); write('введите число с'); readln(c); summa: =(a+b)-c; write('арифметическое выражение c тремя числами=',summa); end.

это самая простая программа. делал через паскаль

                                 PascalABC.NET

uses GraphABC;

begin

 setwindowsize(800,800);

 SetpenWidth(6);

 rectangle(100,300,600,700);

 Moveto(100,300);

 Lineto(350,35);

 lineto(600,300);

 rectangle(130,420,260,600);

 rectangle(450,450,600,700);

 circle(480,570,5);

 line(195,420,195,600);

 line(130,500,260,500);

 //труба

 moveto(475,165);

 lineto(510,125);

 lineto(480,98);

 lineto(445,135);

end.