Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c