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

спасибо огромное)

пожалуйста.

var a,b:real;beginwrite('a = ');readln(a);write('b = ');readln(b);if b=0 then begin      write('min(',a,',',b,')=');      if a<b then writeln(a) else writeln(b);      end else if b<0        then begin             write('max(',a,',',b,')=');             if a>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 = 5b = -8max(5,-8)=5