Програма algo

[AHAPXICT]

Тем кто умеет писать помогите что тут не так? ебана

вот

Program lvl;
Var r,l:real;i,n:integer;
Begin
write('ââåä³òü ðàä³óñ 1 êîëà r=');
read(r);
r:=10;
for i:=1 to n do
begin
l:=-23.14n;
Writeln:(:'äîâæèíà,'i,'êîëà l=');
r:=i+2.5;
and;
end.

[DoNBaSS]

писать умею, но не такие закоряки)))ап

[DeViL]

условие задачи скинь

[AHAPXICT]

да я уже другую сделал закрою пожалуй :):