Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(паскаль авс)

Var a,b,c,d,e,m: real; begin writeln('введите 5 чисел'); read(a,b,c,d,e); m: =a; if m< b then m: =b; if m< c then m: =c; if m< d then m: =d; if m< e then m: =e; if a> b then a: =b; if a> c then a: =c; if a> d then a: =d; if a> e then a: =e; write(a,' ',m) end.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.