Даны 2 числа. Если они положительные - умножить их на 3, иначе - возвести в квадрат. в pascal

var a, b:integer;begin     write('a='); read(a);     write('b='); read(b);       if (a > 0) and (b > 0) then         writeln(3*a, ' ', 3*b)                       else         writeln(a*a, ' ', b*b); end.