Question

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

Answer 1

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.

Answer 2

 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.