Организация циклов паскаль

[Ann2807]

Здравствуйте, напишите, пожалуйста, код к задаче:

Организации города были привлечены к мероприятию по озеленению территории пустыря. Сколько организаций участвовало в этом мероприятии, а также, сколько в среднем посадила деревьев каждая организация, если было рассчитано, что на территории пустыря можно посадить не более 1000 деревьев.

[Stilet]

var i:integer;
begin 
 for i:=1 to 1000 do writeln('Организация №',1:6,' посадила в среднем 1 древо');
 writeln('В этой беде участвовало 1000 организаций');
 readln;
end;

[Ann2807]

неужели так просто? данных вообще же неизвестно никаких почти?

[Stilet]

данных вообще же неизвестно никаких почти?

Вот именно. Никаких совершенно.