Begin3. Даны стороны прямоугольника a и b. Найти его площадь S=a·b и периметр P=2·(a+b).
var a, b, s, p: real;
begin
  write('Введите длины двух сторон прямоугольника ->');
  readln(a, b);
  s:=a*b;
 ...

Begin2. Дана сторона квадрата a. Найти его площадь S=a².
var a, s: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  ...

Begin1. Дана сторона квадрата a. Найти его периметр P=4·a.
var a, p: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  ...