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

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

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

Помогите составить программу в 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.

как-то так)