Cod sursa(job #896731)

Utilizator tziplea_stefanTiplea Stefan tziplea_stefan Data 27 februarie 2013 16:58:33
Problema Submultimi Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.26 kb
Raporteaza aceasta sursa 
Program acolada;
var
i,n:longint;
cin,cout:text;
begin
assign(cin,'submultimi.in');reset(cin);
assign(cout,'submultimi.out');rewrite(cout);
read(cin,n);
for i:=1 to n do
  begin
  writeln(cout,i);
  write(cout,i,' ');
  end;
close(cin);
close(cout);
end.