данны сторны прямоугольника отыскать его периметр пример как делать дано время

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