https://pastein.ru/t/ZN

  скопируйте уникальную ссылку для отправки


program maxmin;
var a,b,c,d,e:integer;
begin
  writeln('Vvedite 5 chisel');
  readln(a,b,c,d,e);
    begin if (a>b) and (a>c) and (a>d) and (a>e) then writeln('Chislo ',a,' naibolshee')
    else if (b>a) and (b>c) and (b>d) and (b>e) then writeln('Chislo ',b,' naibolshee')
    else if (c>a) and (c>b) and (c>d) and (c>e) then writeln('Chislo ',c,' naibolshee')
    else if (d>a) and (d>b) and (d>c) and (d>e) then writeln('Chislo ',d,' naibolshee')
    else if (e>a) and (e>b) and (e>c) and (e>d) then writeln('Chislo ',e,' naibolshee')
    end;
    begin if (a<b) and (a<c) and (a<d) and (a<e) then writeln('Chislo ',a,' naimenshee')
    else if (b<a) and (b<c) and (b<d) and (b<e) then writeln('Chislo ',b,' naimenshee')
    else if (c<a) and (c<b) and (c<d) and (c<e) then writeln('Chislo ',c,' naimenshee')
    else if (d<a) and (d<b) and (d<c) and (d<e) then writeln('Chislo ',d,' naimenshee')
    else if (e<a) and (e<b) and (e<c) and (e<d) then writeln('Chislo ',e,' naimenshee')
    end;
end.