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

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.