эл. задача по паскалю помогите

[grigorenko]

нужно написать программу, которое циклически запрашивает значение радиуса и подсчитывает длинну окужности пока не будет введён R<0

[Sheka]

Сделаю. Договоримся! 255507394

[rangerx]

Обращайтесь. Сделаю быстро и недорого.
xranger@mail.ru

[dr.Jekill]

[syntax="pascal"]
uses crt;
var R,C:real;
begin
repeat
clrscr;
write('Vvedite radius: ');
readln(R);
C:=2*pi*R;
write('Dlina okr.: ',C:6:2);
readln;
until R<0;
end.
[/syntax]