Ayo Membuat Program Pascal/String

var

  p,l,t,v:integer;

begin

  writeln('168');
  readln(p);
  writeln('40');
  readln(l);
  writeln('168');
  readln(t);
  v := p * l * t;
  writeln(v);
  readln;

end.