If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.