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

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

Var y,x,alpfa1,alpfa2,beta,l:real;
t1,t2:real;
Begin
readln(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.

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