1)дана сторона квадрата а. найдите его площадь S=a2
2) Дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число.

Var a:real;BeginWrite('a = ');ReadLn(a);WriteLn('S = ',a*a);End.Var   A:integer;BeginWrite('Введите целое число: ');ReadLn(A);if A > 0 then A:=A+1;WriteLn(A)End.