Cod sursa(job #9645)

Utilizator hitmannCiocas Radu hitmann Data 27 ianuarie 2007 16:31:47
Problema Amenzi Scor 0
Compilator fpc Status done
Runda Unirea 2007, clasele 11-12 Marime 0.32 kb
Raporteaza aceasta sursa 
program amenzi;
var n,m,k,p:integer;
procedure citire;
var f:Text;
begin
assign(f,'amenzi.in'); reset(f);
read(f,n,m,k,p);
close(f);
end;
procedure afis;
var g:text;
    i:integer;
begin
assign(g,'amenzi.out'); rewrite(g);

for i:=1 to p do writeln(g,-1);
close(g);
end;
begin
citire;
afis;
end.