В чем именно проблема?
Рисуешь таблицу, первый столбик станции (Откуда и докуда) , второй столбик время в пути. Я так понял задание
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
Для трех логических переменных делаем таблицу из 8 строк:
<span>1 замкнутая область.2 ограниченная.3 если в равенстве</span>
Var i,s,k:integer;
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.