var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
Системный блок - физически представляет собой корпус,который наполнен внутри аппаратным обеспечением для создания компьютера.
Я не совсем понял, но если смотреть со стороны логики, то норм
море
соре
суре
суше
сушя
суша