Question

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

Answer 1

Var a:real;
Begin
Write('a = ');ReadLn(a);
WriteLn('S = ',a*a);
End.



Var
   A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then A:=A+1;
WriteLn(A)
End.