Дано клас з двадцяти учнів. Їх розмістили у певному порядку і послідовно їх зріст. Програма виводить на екран відповідь на питання: чи розміщенні учні по зросту у порядку зростання?

---

program clas;
uses crt;
var a:array [1..20] of real; {масив з 20-елементів на зріст}
    b:boolean; {}
    i, j:integer;
begin
  clrscr;
  b:=false;

  for i:=1 to 20 do readln(a[i]); {введення значень зросту}

  for i:=1 to 19 do {}
  begin
    if a[i]>a[i+1] then b:=true;
  end;
  {відповідь на писання}
  if b=true then writeln('No')
  else writeln('Yes');

  readln(j); {зупинка програми}

end.