Вводятся четыре числа, каждое с новой строки: длина шага;

место начала бега;

место окончания;

дополнительное число.

Формат вывода
В одну строку через пробел записать все числа из указанного диапазона, включая начальное и конечное значения, с шагом, равным длине, умноженной на дополнительное число. Если среди чисел, подлежащих выводу, встретятся кратные (дополнительному числу + 1), то дальше ничего выводить не надо. Значит, и правда, летим.
Пример 1
Ввод
3
1
49
2
Вывод: 1 7 13 19 25 31 37 43 49

Program Ves;
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin 
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.

1)

var g1,g2:integer;

begin

writeln('Введите годы рождения двух детей');

readln(g1,g2);

if g1<g2 then

writeln('Старший ребенок родился в ',g1,'году')

else

writeln('Старший ребенок родился в ',g2,'году');

end.

2)

var r,v,ves:real;

begin

write('Введите рост ');

readln(r);

writeln('Введите вес ');

readln(ves);

v:=r-115;

if (r>=168) and (r<=173) then

if v=ves then

writeln('Поступающий будет принят в школу')

else

writeln('Поступающий не будет принят')

else

writeln('Поступающий не будет принят');

end.