4.
a) 2
b) 3
c) 1
5.
var A,B: integer;
begin
write('Введите A и B:');
readln(A,B);
writeln('Площадь прямоугольника = ',A*B);
write('Периметр прямоугольника = ',2*(A+B));
end.
