Ришите пожалуйста, с постусловием. Перевод из км в м от 1 до 10

Question

Ришите пожалуйста, с постусловием. Перевод из км в м от 1 до 10

Answer 1

Program mili;
const a=1.603; b='км'; с='мили';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.