n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Text1.pas

17 строк279 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses PT4;

var f:text;
    filename:string;
    n,k,i,j:integer;
begin
  Task('Text1');
  read(filename);read(n);read(k);
  AssignFile(f,filename);
  Rewrite(f);
  for i:=1 to n do begin
    for j:=1 to k do
      write(f,'*');
    writeln(f);  
  end;    
  CloseFile(f);
end.