Написать на паскале: даны числа 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 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 = 5
b = -8
max(5,-8)=5