program n1;
var
a, b :integer;
begin
read(a, b);
if not(sqr(a)>28) then
writeln(b+12)
else writeln(sqr(a));
end.
Объяснение:
program n1;
var
a, b :integer;
begin
read(a, b);
if not(sqr(a)>28) then
writeln(b+12)
else writeln(sqr(a));
end.
Объяснение: