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.

This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.