Программу счета периметр прямоугольника создавать паскаль черта алгоритм (

Var
  a, b, p: real;

begin
  Write('Введите через пробел длины сторон: ');
  Readln(a, b);
  p := 2 * (a + b);
  Writeln('Периметр прямоугольника равен ', p:0:2)
end.

Тестовое решение:
Введите через пробел длины сторон: 12.3 9.18
Периметр прямоугольника равен 42.96

Блок-схема находится во вложении.

Program znanija;
const
INPUT_SIDE_A = 'Введите A: ';
INPUT_SIDE_B = 'Введите B: ';
OUTPUT_PERIMETER = 'Периметр равен: ';
var
  sideA : integer;
  sideB : integer;
  perimeter : integer;
begin
write(INPUT_SIDE_A);
read(sideA);
write(INPUT_SIDE_B);
read(sideB);

perimeter := 2 * (sideA + sideB);
write(OUTPUT_PERIMETER);
write(perimeter);
end.