Как решить?

[temnot]

4. Написать программу, вычисляющую скорость, с которой бегун пробежал дистанцию:
Введите длину дистанции (в метрах) = 1000
Введите время (мин.сек) = 3.25
Дистанция: 1000
Время (3 мин 25 сек) = 205 сек
Скорость: 17.56 км/ч

var d,s,a:real;c,b:integer;
begin
readln(s);
readln(a);
b:=a div 1;
c:=a mod 1;
d:=a/(b+c)*3600/1000;
writeln(d,' км/ч');
readln;
end.

не хочет принимать т.к. из вещественного a не хочет делать целое число b, как сделать по другому?

[type_Oleg]

К типу real, и вообще к нецелым нельзя применять div, mod
А вводить надо именно так - мин.сек , через точку ?

[temnot]

к сожалению да, так бы я решил

[salauat]

лови

  
  program bred;
uses crt;
var d,s,a:real;c,b:integer;
begin
readln(s);
readln(a);
writeln((s/a)*3600/1000);
readln;
end.

[salauat]

вот убрал все левое

program bred;
uses crt;
var s,a:integer;
begin
readln(s);
readln(a);
writeln((s/a)*3600/1000);
readln;
end.

[type_Oleg]

А если ввести 1.5, это как должно пониматься?
1 мин 5 сек, или 1 мин 50 сек?
Или 1 мин 5 сек надо 1.05 ?

[salauat]

я думал ты в секундах будешь вводить

[salauat]

и вообще , если ты пишешь 1.5 мин, то подразумеваешь 1 мин, 30 сек

[salauat]

если тебе обязательно надо вводить мин.сек, можно попробовать так

program bred;
uses crt;
var s,a,b:integer;
begin
readln(s);
readln(a,b);
a:=a*60+b;
writeln((s/a)*3600/1000);
readln;
end.