Город а находится в х милях от города в. вычислить расстояние между этими в километрах. (5 миль-8 км) программа паскаль

User crt; r,x: integer; begin readln(x); r=x*(5/8); writln(r); end.

User crt; var  r,x: integer; begin readln(x); r=x*(5/8); writln(r); end.

#ruby 2 def getnumberssum(n)             n = n.to_i             sum = 0             while n > 0                   sum += n % 10                   n = n / 10             end             return sum       end n = gets k = gets kolvo = 0 for i in **n) - 1       kolvo += 1 if getnumberssum(i) == k end p kolvo

Var a,b,c: integer; begin c: =365; read(a,b); if a> 1 then c: =c-31; if a=1 then c: =c-b; if a> 2 then c: =c-28; if a=2 then c: =c-b; if a> 3 then c: =c-31; if a=3 then c: =c-b; if a> 4 then c: =c-30; if a=4 then c: =c-b; if a> 5 then c: =c-31; if a=5 then c: =c-b; if a> 6 then c: =c-30; if a=6 then c: =c-b; if a> 7 then c: =c-31; if a=7 then c: =c-b; if a> 8 then c: =c-31; if a=8 then c: =c-b; if a> 9 then c: =c-30; if a=9 then c: =c-b; if a> 10 then c: =c-31; if a=10 then c: =c-b; if a> 11 then c: =c-30; if a=11 then c: =c-b; if a> 12 then c: =c-31; if a=12 then c: =c-b; write(c); end.