3. Дана сторона квадрата a. Найдите его периметр P=4∗a и площадь S=a2. программа Паскаль

Question

3. Дана сторона квадрата a. Найдите его периметр P=4∗a и площадь S=a2.
программа Паскаль

Answer 1

Program lol;
var a;b;c:integer;
begin
read(A);
b:=4*a;
c:=a*a;
writeln('Периметр=',b);
writeln('Площадь='C);
end.

Answer 2

Uses GraphABC;

var
  s, p, a: integer;

begin
  read(a); //спрашиваем сторону квадрата
  p := 4 * a;
  s := sqr(a);
  print('Периметр квадрата: ' + p + '. Площадь квадрата: ' + s + '.');
end.