Test TPU

unit XQ;

interface

procedure reset(x,y,v:integer);

implementation

uses crt;


procedure reset(x,y,v:integer);
var i:integer;
begin
  for i:= x to v do begin
  gotoxy(i,y);
  write(' Pascal');
  end;
end.