17 круг стадиона 800 метров, по введенной дистанции определить сколько кругов и дополнительно метров нужно пробежать спортсменам

Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.

Пример:
s = 5020
Кругов: 6 и ещё метров: 220