Срочно даю 25 баллов!!!
Даны 2 числа a и b. Найдите сумму и частное их квадратов. Значения переменных a и b введите с клавиатуры.

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.