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

Вообще-то натуральные числа - это числа > 0, так что будем считать, что даны числа целые.var a,b:integer;beginwrite('a = '); readln(a);write('b = '); readln(b);if a>0 then writeln(b) else writeln(a*a);end.Пример:a = -7b = 549

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