var a, n, b:integer;
begin
for a := 170 to 180 do;
readln(n);
b := a mod n;
writeln('ответ:', b);
end.
(Не уверен, но возможно правильно :) )
var a, n, b:integer;
begin
for a := 170 to 180 do;
readln(n);
b := a mod n;
writeln('ответ:', b);
end.
(Не уверен, но возможно правильно :) )