На писать программу пользователь вводит два числа, а и с. найти (с точностью до тех знаков после запятой) во сколько раз сумма их квадратов больше остатка от деления, а на с.

Var a,c:integer;
begin
write('a = '); readln(a);
write('c = '); readln(c);
if a mod c <> 0 then 
 writeln(a*a+c*c/(a mod c):6:3);
end.

Пример:
a = 8
c = 5
72.333