Помогите!!!!! Безотлагательно!!!!!! упрашиваю!!!!!!! 1-ые три номера!!!!! если можно с

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

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