Написать программу на pascal.

закажите гостиницу на курорте трускавец,выбрав уровень гостиницы количество мест в номере, проживание с питанием или без. гостиница "курортная" пять звезда, одноместная комната - 1000 гр в сутки (с питанием 1500 гр), двухместный - 1500 гр (с питанием 2500 гр). гостиница "верховина" четыре звезды, одноместная комната - 600 гр в сутки ( с питанием 900 гр), двухместный - 900гр(с питанием 1500гр). гостиница "гуцулка"три звезды, одноместная комната - 300 гр в сутки (с питанием 500гр),двухместный - 450 гр ( с питанием 800 гр). предусмотреть обработку ошибок ввода.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
      .Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
      .OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
  Writeln('Чаще других встречается цепочка "',c,'"')
end.

Пример
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"

Замечание: ограничение на длину строки увеличено до 2 млн. символов.

uses graphABC; var f:boolean; procedure planety(r,x,y:integer;c:Color); begin setpencolor(c); setbrushcolor(c); setbrushstyle(bsSolid); circle(x,y,r); end; procedure KeyPress(key:char); begin if key<>#0 then f:=false; end; var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer;     u1,u2:real; begin xc:=windowwidth div 2; yc:=windowheight div 2; rs:=90; rz:=15; rl:=3; r1:=170; r2:=25; u1:=0; u2:=0; clearwindow(clBlack); lockdrawing; onkeypress:=Keypress; f:=true; repeat clearwindow(clBlack); setbrushstyle(bsClear); setfontcolor(clWhite); textout(windowwidth div 2-80,10,'Выход любая клавиша'); planety(rs,xc,yc,clYellow); u1:=u1-0.02; u2:=u2+0.1; x1:=xc+round(r1*cos(u1)); y1:=yc-round(r1*sin(u1)); x2:=x1+round(r2*cos(u2)); y2:=y1-round(r2*sin(u2)); planety(rz,x1,y1,clBlue); planety(rl,x2,y2,clSilver); sleep(100); redraw until not f end.