Софи понимала, что чудовище (или великан) с огромным, длинным, бледным и морщинистым лицом стащил её с кровати в час тёмных сил и вынес через окно, туго завернув в одеяло. А потом случилось вот что: когда великан вытащил свою добычу на улицу, он взял одеяло, как кошёлку, за четыре угла, и Софи оказалась внутри. Другой рукой он схватил чемодан и трубу и побежал что есть мочи.

Напишите программу, которая Софи запомнить дорогу обратно. Для этого она будет выводить некоторые номера домов на улицах, по которым бежит Великан.

Формат ввода
Вводятся сначала три числа – начальный номер дома, конечный и шаг, с которым их нужно выводить.

Затем еще одно число – условие остановки.

Формат вывода
В одну строку через пробел записать все числа из указанного диапазона, включая начальное и конечное значения, с указанным шагом. Если среди чисел, подлежащих выводу, встретится число-условие или кратное ему, то на нем нужно остановиться и дальше ничего не выводить.​

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.

Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.