Даны два натуральных числа 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.