Напишите программу для вычесления скорости , числа любые

Язык паскаля

program skorost;
var
a,b,c:real;
begin
writeln (Введите расстояние в км);
readln (a);
writeln (Введите скорость в часах);
readln (b);
c:=a/b;
writeln (Скорость = ,c);
readln;
end.