program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.