Составте алгоритм для этого рисунка в чертежнике

Объяснение: Клавиша Shift. Одновременное нажатие этой клавиши и символьной клавиши позволяет временно переключиться в режим ввода прописных (заглавных) букв, либо ввести другой символ, расположенный на той же клавише. На клавиатуре присутствуют две такие клавиши – левая и правая, и в некоторых программах их действие отличается. Например чтобы ввести прописную букву «И» нужно нажать на клавишу Shift и не отпуская ее, нажать клавишу И.

Клавиша <Ctrl> используется для расширения возможностей клавиатуры. Часто используется в комбинации с другими клавишами для активации какого- либо действия в программе.

1)

var num1, num2, i, res: integer;

begin

  Write('Введите числа >>> ');   {Нет -Ln, ввод чисел будет происходить на первой строке}

  ReadLn(num1, num2);   {Вводить числа через пробел, подряд}

  res:=0;   {Обнуляем счетчик, иначе результат будет неожиданный}

  for i:=1 to num2 do res:=res + num1;   {Прибавляем num1 к счетчику res num2 раз}

  Writeln(res); {Выводим}

  ReadLn

end.

2)

var a,b,P:integer;

   kv:String;

begin

writeln ('Введите геометрическую фигуру kv или pr');

Readln(kv);

if (kv = 'kv') then begin

write ('Введите сторону квадрата');

readln (a);

P:=a*4;

writeln('P= ',P);

end

else begin

writeln('ВВедите a и b');

readln(a,b);

P:=(a+b)*2;

writeln('P=',P);

end;

end.

3)

var

 a, b, c, P: real;

begin

 writeln('Введите два катета прямоугольного треугольника:');

 readln(a, b);

 P := a + b; { <-- сумма катетов }

 c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }

 P := P + c; { <-- периметр P }

 writeln('Результат:');

 writeln(' c = ', c:0:2);

 writeln(' P = ', P:0:2);

 readln

end.