Даны два натуральных числа A и B Если А-положительное то вывести на экран B иначе вывести квадрат числа А

Даны два натуральных числа A и B Если А-положительное то вывести на экран B иначе вывести квадрат числа А

• Var a,b:integer;
  begin
  writeln(Введите два числа );
  readln(a,b);
  if a>0 then writeln(b)
  else writeln(sqr(a));
  end.
• Вообще-то натуральные числа — это числа > 0, так что будем считать, что даны числа целые.
  var a,b:integer;
  begin
  write(a = ); readln(a);
  write(b = ); readln(b);
  if a>0 then writeln(b) else writeln(a*a);
  end.

  Пример:
  a = -7
  b = 5
  49