Данны сторны прямоугольника найти его периметр пример как делать дано время в чесах и в...

Question

Данны сторны прямоугольника найти его периметр
пример как делать
дано время в чесах и в минутах выразить его в минутах
var C,A,B:inter;
begin
writeln ('Введите время в часах и в минутах');
readln;
C:=A*60+B;
writeln ( ' время в минутах');
readln;
end.

Answer 1

Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.

Пример:
Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16