Помогите!!!!! Срочно!!!!!! умоляю!!!!!!! первые три номера!!!!! если можно с объяснением!!!!(Паскаль+ проверка на анамалии)!!!!!!!!!!!Заранее, буду благодарна!!!!!!

Вот второе и третье задания.
Мне попадались такие же на проверочной контрольной работе
А первое я постараюсь сейчас написать.
а вот и первое:
var
x, y, max:integer;
F:real;
begin
write('x=', 'y=');
max:=0;
readln(x);
if x>y then F:=max(x,y-5,x^2+1);
if x<=y then F:=max(х+1, у+1,1);
writeln('F=',F);
end.

1)
var x, y, f: integer;
function max(a, b, c: integer): integer;
   var temp_max: integer;
begin
   if a > b then temp_max := a
      else temp_max := b;
   if c > temp_max then temp_max := c;
   max := temp_max;
end;
begin
   write('Введите x, y: '); readln(x, y);
   if(x > y) then f := max(x, y - 5, x*x + 1)
      else f := max(x + 1, y + 1, 3);
   writeln('f = ' , f);
end.