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

Вообще-то натуральные числа - это числа > 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

var a,b:integer; begin   writeln('Введите два числа ');   readln(a,b);   if a>0 then writeln(b)      else writeln(sqr(a)); end.