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

uses crt; 
  var a, b, x, y, newa, newb, newa2, newb2:integer;
 begin 
  write(a=); read(a); 
  write(b=); read(b);   
   newa:=3*a; newb:= 3*b;   
   newa2:=sqr(a); newb2:=sqr(b);   
    if (a>0) and (b>0) then write(newa = ,newa, | , newb = ,newb)                     
                             else write(newa = ,newa2, | , newb = ,newb2); 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.