ПАСКАЛЬ, 4. Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя:
4.1. только простые вложенные условия (без and/or)
4.2. логические выражения (с and/or)
5. Дано четыре целых числа. Максимальное из них присвоить
дополнительной переменной и вывести результат, используя:
5.1. логические выражения (с and/or)
5.2. простые условия (без and/or) и короткое ветвление (без ELSE)
6. Дано три числа. Вывести их в порядке возрастания без
использования цикла.

Pascal:

var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.

Type  date = record    day: 1..31;     month: 1..12;         year: integer ;        end;var    a: date := (day: 8; month: 7; year: 2012);  b: date := (day: 6; month: 7; year: 2012);    c:integer;
procedure OutDate(d: date);begin  with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1                     else c:=-1 ;                                         if a.year = b.year then                                         if  a.month > b.month then                                         c:=1                                                                   else c:=-1;                                                                       if a.year = b.year then                                                     if a.month = b.month then                                                        if a.day > b.day then c:=1                                                                          else c:=-1;  if a.year = b.year then                                                                 if a.month = b.month then                                                                     if a.day = b.day     then c:=0;                                                                                                                                                            OutDate(a);                                                                              OutDate(b);                                                                               writeln('otwet:', c);end.