Даны два числа a и b. Проверить кратность их суммы квадратов числу c. (Паскаль)

Question

Даны два числа a и b. Проверить кратность их суммы квадратов числу c. (Паскаль)

Answer 1

Vara,b,c,d:integer;beginreadln(a);readln(b);readln(c);d:=(a+b)mod sqr(c);if d=0 then beginwriteln ('Кратно'); end else writeln ('Не кратно');end.

Comments

var
a,b,c,d:integer;
begin
readln(a);
readln(b);
readln(c);
d:=(a+b)mod sqr(c);
if d=0 then begin
writeln ('Кратно'); end
else
writeln ('Не кратно');
end.

---

переносы слетели

---

Спасибо большое!))