Создайте программу пешения зажачи.Дано 2 числа a и b.Если a положительное число,то вычислить произведение чисел a и b,иначе вычислить их частное.Напечатать результат

//Pascal
var a, b:integer;
begin
  readln(a,b);
  if a>0 then writeln(a*b);
  if (a<0) and (b<>0) then writeln(a/b)
     else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.