Ответ:

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.