Пк запрашивает название и радиусы орбит двух планет (в миллионах км) и скорости…

Program Planet; var R1, R2, l1, l2, v1, v2, time1, time2: real; c, b: string; begin Write ('Планета 1-'); Readln (b); Write ('Планета 2-'); Readln (c); Write ('R1='); Readln (R1); Write ('R2='); Readln (R2); Write ('v1='); Readln (v1); Write ('v2='); Readln (v2); L1: =2*Pi*R1; L2: =2*Pi*R2; Time1: =l1/v1; Time2: =l2/v2; Writeln ('Продолжительность года на пленете ',b,'=', Time1:0:2, ' суток'); Writeln ('Продолжительность года на пленете ',c,'=', Time2:0:2, ' суток'); end. Как-то так)