var a,b: integer;
s: real;
begin
write('введите 2 числа');
readln(a,b);
s: = (sqr(a)+sqr(b))/2;
writeln(s);
end.
var a,b: integer;
s: real;
begin
write('введите 2 числа');
readln(a,b);
s: = (sqr(a)+sqr(b))/2;
writeln(s);
end.