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

//Pascalvar 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.