Напишите программу, которая считывает целое положительное число xx и выводит на экран последовательность чисел x, 2x, 3x, 4x и 5x разделённых тремя черточками. Формат входных данных
На вход программе подаётся целое положительное число.

Формат выходных данных
Программа должна вывести текст согласно условию задачи.
Как это решить???

линейный (следования)

разветвляющийся (развилка)

циклический

v=331+ 0,6*t

в зимний день- v=331+ 0.6*(-35)=310 м/с

в летний день-   v=331+ 0.6*30=349 м/с

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.