Ответ:
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; {
writeln('Результат:');
writeln(' c = ', c:0:2);
writeln(' P = ', P:0:2);
readln
end.