program stepenice;
uses crt,graph;
var graphdriver,graphmode,x,y:integer;
begin
  clrscr;
  write(' Unesi sirinu stepenica:');
  readln(x);
  write(' Unesi visinu stepenica:');
  readln(y);
  graphdriver:=detect;
  initgraph(graphdriver,graphmode,'');
  moveto(0,getmaxY);
  while (getX>=0) and (getX<=GetmaxX) and (getY>=0) and (getY<=getmaxY) do
    begin
      linerel(0,-y);
      linerel(x,0)
    end;
  readln;
  closegraph
end.