Длины сторон 1 прямоуг а и б, его площадь в 6 раз меньше площади 2 прямоугольника. найти длину стороны 2 прямоуг, если длина 1 из его сторон =6 program ab; ver a,b,c,d : integer begin решить

Var
a,b,c,d,pr1,pr2:longint;
begin
read(a,b,c);
pr1:=a*b;
pr2:=pr1*6;
d:=pr2/6;
write(d);
end.

Program ab;
var  a, b, c, d, s: integer;
begin

  c := 6;

  readln(a, b);

  s := 6 * a * b;

  d := s div c;

  write(d);

end.