Чи правильна рівність остача від19 на 5 =довжина машина​

Знак «дефис» ставится без пробелов, например: файл-сервер, кто-нибудь, темно-синий. Для улучшения внешнего вида документа можно использовать «неразрывный дефис», который вводится с одновременного нажатия клавиш <Ctrl> + <Shift> + <дефис>.

   «Неразрывный дефис» препятствует нежелательному переносу слов, содержащих дефис (в месте его расположения).

   Знак «тире», или как его называют «длинное тире», ставится с пробелами до и после знака с одновременного нажатия комбинации клавиш <Ctrl>+<Shift>+<серый минус>. Например, «следующий этап — редактирование».

  Знак «неразрывный пробел» препятствует символам, между которыми он поставлен, располагаться на разных строчках и со­храняется фиксированным при любом выравнивании абзаца (не может увеличиваться, в отличие от обычного пробела). Этот знак очень удобно применять при вводе дат (которые не принято располагать на двух строчках), фамилий с инициалами и т. п. Например: М. Ю. Лермонтов, 1998 г., 9 мая, 1682-1696 гг. Ставится знак «неразрывный пробел» с одновременного нажатия комбинации клавиш <Ctrl>+<Shift>+<пpoбел>.

   Слова, заключенные в кавычки или скобки, не должны отделяться от них пробелами. Например, «Евгений Онегин», гостиница «Нев­ский Палас», слобода Алексеевка (ныне город Алексеевка Белгород­ской области).

   Для ввода римских цифр используются прописные латинские буквы I, V, X, L, С, D, М. Например, первая половина XIX века, конец ХVII века.

Пишите грамотно и быть может станете великим поэтом как Пушкин, Лермонтов или Дельвиг.

//Ночной отвратный код
//PascalABC.NET 3.2 сборка 1318

Var
  f,g:text;
  mins,i,currents,minsCount:integer;
  minsWords:array of string;
  buf1,buf2:char;
  wordFlag:boolean;
  s:string;
begin
mins:=integer.MaxValue;
assign(f,'input.txt');
reset(f);
read(f,buf1);
if not(EOF(f)) then
read(f,buf2);
if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr(13))) and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr(13))) then
 wordFlag:=false;
if (buf1<>' ') and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr(13))) then
  begin
    s:=buf1;
    wordFlag:=false;
  end;
if (buf1<>' ') and (buf2<>' ') then
  begin
    s:=buf1+buf2;
    currents:=0;
    for i:=1 to length(s) do
      if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then
         inc(currents);
    wordflag:=true;
 end;
while not(EOF(f)) do
  begin
   if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr(13))) and (buf2<>' ')
    then
      begin
        wordFlag:=true;
        currents:=0;
        s:=buf2;
      end
     else
      if ((buf1<>' ') and (buf2=' ')) or ((buf2=chr(10)) or (buf2=chr(13)))
        then
          begin
            wordFlag:=false;
            for i:=1 to length(s) do
              if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then
                inc(currents);
            if(currents=mins) then
              begin
                inc(minsCount);
                setlength(minsWords,minsCount);
                minsWords[minsCount-1]:=s;
              end;
            if(currents<mins) and (currents<>0) then
              begin
                minsCount:=1;
                setlength(minsWords,minsCount);
                minsWords[minsCount-1]:=s;
                mins:=currents;
              end;
          end
        else
          if wordFlag
             then
              s:=s+buf2;
   buf1:=buf2;
   read(f,buf2);
 end;
 if wordFlag
 then
 begin
 s+=buf2;
 for i:=1 to length(s) do
              if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then
                inc(currents);
              if(currents=mins) then
              begin
                inc(minsCount);
                setlength(minsWords,minsCount);
                minsWords[minsCount-1]:=s;
              end;
            if(currents<mins) and (currents<>0) then
              begin
                minsCount:=1;
                setlength(minsWords,minsCount);
                minsWords[minsCount-1]:=s;
                mins:=currents;
              end;
     end
 else
  if buf2<>' ' then
    begin
      if (lowcase(buf2)='a') or (lowcase(buf2)='e') or (lowcase(buf2)='i') or (lowcase(buf2)='o') or (lowcase(buf2)='u') then
        currents:=1;
     if(currents=mins) then
              begin
                inc(minsCount);
                setlength(minsWords,minsCount);
                minsWords[minsCount-1]:=buf2;
              end;
      if currents<mins then
              begin
                minsCount:=1;
                setlength(minsWords,minsCount);
                minsWords[minsCount-1]:=buf2;
                mins:=currents;
              end;
    end;
 close(f);
 assign(g,'output.txt');
 rewrite(g);
 for i:=0 to length(minsWords)-1 do
  write(g,minsWords[i],' ');
 close(g);
end.

Пример содержимого input.txt:
Lorem ipsum dolor sit amet consectetur adipiscing elit
etc Curabitur posuere erat et felis ultricies pulvinar u
Пример содержимого output.txt:
sit etc et u