Рассчитать расстояние, преодоляемое акулой за 1,5 часа - Pascal ABC

Формулировка задачи:

Здравствуйте!!! Помогите, пожалуйста, решить простенькую задачку! Школьный уровень. Скорость движения акулы составляет 8,3 м/c. Напишите программу на языке паскаль, рассчитывающую расстояние, преодоляемое акулой за 1,5 часа. 1) Используя в программе процедуру. 2) Используя в программе функцию. Заранее спасибо!!!

Решение задачи: «Рассчитать расстояние, преодоляемое акулой за 1,5 часа»

Листинг программы

program Shark;
 
  procedure Distance1(V, T: real; var S: real);
  begin
    S := V * T;
  end;
 
var
  V, S, T: real;
begin
  V := 8.3;
  T := 1.5;
  Distance1(V, T, S);
  writeln('S=', S: 0: 2);
end.

Объяснение кода листинга программы

Создается программа Shark.
Определяется процедура Distance1, которая принимает три аргумента: переменную V типа real, переменную T типа real и переменную S типа real. Внутри процедуры значение переменной S устанавливается равным произведению значения переменной V на значение переменной T.
Определяются три переменные: V, S и T типа real. Значение переменной V устанавливается равным 8.3, значение переменной T устанавливается равным 1.5, а значение переменной S устанавливается равным результатом выполнения процедуры Distance1 с аргументами V и T.
Выводится значение переменной S с помощью функции writeln. Значение S выводится в формате S=х, где х - это значение переменной S.
Программа завершается.