Решения должны работать на любом диалекте, хотя не проверял...
№1 program Task1; var a:integer; begin read(a); if a<0 then begin write(sqr(a)); end else if a>0 then begin write(a) end; end. №2 program Task2; var x,z:integer; begin read(x); if x>0 then begin z:=x*x;end; write(z); end.
Улучшенный вариант (работает под PascalABC.Net последних обновлений):
№1 begin var a:integer; read(a); if a<0 then begin write(sqr(a));end else if a>0 then begin write(a) end; end. №2 begin var x:integer; read(x); if x>0 then x*=x;write(x);//Результат будет выведен в любом случае, вне зависимости от того, x>0 или нет end.
электронный документ может быть в word или эксель