Пк запрашивает название и радиусы орбит двух планет (в миллионах км) и скорости движения орбит (в миллионах км в сутки). Вычислить продолжительность года на планетах (длина орбит/скорость). Результаты должны иметь вид:

Продолжительность года на планете суток;

Продолжительность года на планете суток;

Помогите составить программу в Pascal.

var

r1, r2, v1, v2:integer;

name1, name2:string;

begin

writeln ('Введите название двух планет');

readln (name1, name2);

writeln ('Введите радиусы двух планет');

readln (r1, r2);

writeln ('Введите скорости движения орбит');

readln (v1, v2);

writeln ('Продолжительность года на планате ', name1,'=', r1/v1);

writeln ('Продолжительность года на планате ', name2,'=', r2/v2);

end.

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.

как-то так)