Алладин
это ответ правильный
var a,b:integer;
s:real;
begin
write('ВВедите 2 числа');
readln(a,b);
s:= (sqr(a)+sqr(b))/2;
writeln(s);
end.
var x: integer; y: real;
begin
readln(x);
If x<=-10 then
y:=x*x+25-x
else If (-10<x) and (x<=10) then
y:=3+x
else y:=1/x;
writeln(y);
end.
После выполнения действия получается код: 03526