Одна звезда находится от нас на расстоянии 30 световых лет, а другая звезда на расстоянии S парсек. Разработайте программу для ответа на во какая звезда ближе к нам, первая или вторая. (1 парсек =3,26 световых года)
Нужно решить в Паскале.Заранее огромное
Var s1: integer;
s2: real;
Begin
s1:=30;
readln(s2);
s2:= s2 * 3.26;
If (s1 > s2) then write('Первая звезда дальше') else write('Вторая звезда дальше');
End.