СРОЧНО!!! Написать на Паскале: Даны числа a, b. Если b = 0, то найти min(a,b), если b<0, то найти max(a,b), в противном случае каждое число уменьшить на 20%.

Var a,b:real;
begin
write(a = );
readln(a);
write(b = );
readln(b);
if b=0
 then begin
      write(min(,a,,,b,)=);
      if alt;b then writeln(a) else writeln(b);
      end
 else if blt;0
        then begin
             write(max(,a,,,b,)=);
             if agt;b then writeln(a) else writeln(b);
             end
        else begin
             a:=a*0.8;
             b:=b*0.8;
             writeln(a = ,a, b = ,b);
             end;
end.

Пример:
a = 5
b = -8
max(5,-8)=5