Вася часто ходит в гости к пете. для того, чтобы попасть к пете во двор, надо ввести код, состоящий из четырех цифр. обычно друзья ходили вместе, но в этот раз вася пришел один, а петя ждет его у себя. вася не помнит код, но у него есть несколько вариантов. кроме того, васе почему-то запомнился факт, что квадрат числа, составленного из первых двух цифр кода, в сумме с квадратом числа, состоящего из последних двух цифр кода, имеет при делении на семь остаток один. то есть, если код представляет собой «abcd», где «a», «b», «c», «d» — некоторые цифры, тогда ab2 +cd2 имеет остаток 1 при делении на 7. например, код 2843, является одним из возможных кодов, поскольку 282 + 432 = 2633 = 376 · 7 + 1, а 8243 — нет, поскольку 822 + 432 = 8573 = 1224 · 7 + 5. у васи есть несколько вариантов того, каким может быть код. ему определить, какие из вариантов могут быть кодом от входа в петин двор.
uses crt;
var n: integer;
begin
clrscr;
for n:=1000 to 9999 do begin
if (sqr(n mod 100) + sqr(n div 100)) mod 7 = 1 then writeln (n);
end;
readkey;
end.