var a,b,s,c:real;
begin
writeln('Введите два числа через пробел:');
read(a,b);
a:=a*a;
b:=b*b;
s:=a+b;
c:=a/b;
writeln('Сумма их квадратов равна: ',s);
writeln('Частное их квадратов: ',c);
end.
