Хм, ну пусть будет р - путь, s - колво суток, i - колво суток
var i, s, p: integer;
begin
p:=0;
writeln('Введите кол-во суток');
readln(s);
for i:=1 to s do
p:=p+200;
writeln (p, ' км');
end.
А вообще, у меня 6 недоделанных практических по инфе, а я тут сижу..