program Phisika
uses Crt, graph;
var V: real, t: real, x:real, y:real;
begin
clrscr;

driver:=detect;
initgraph(driver,mode,'');

writeln('enter V and T');
readln(V, t);

x := y := V * t;

setcolor(15);
setbkcolor(0);

moveto(0,0);
lineto(x,y);

end.