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

Язык паскаля

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