Информатика паскаль код

using System;
class HelloWorld {
static void Main() {
Console.WriteLine("Введите количество остановок: ");
int n = Convert.ToInt32(Console.ReadLine());
int t = n*5-5;
Console.WriteLine(t);
Console.ReadKey();
}
Нужно сделать чтобы работало в паскале

По дате

По рейтингу

user_275419315

Мастер

9мес

На

1234567891011121314151617181920212223242526272829

 program HelloWorld; 
 
var 
  n, t: Integer; 
 
function CalculateTime(stops: Integer): Integer; 
begin 
  Result := (stops - 1) * 5; 
end; 
 
procedure GetValidInput(var stops: Integer); 
begin 
  repeat 
    Write('Введите количество остановок (1 или больше): '); 
    ReadLn(stops); 
     
    if stops < 1 then 
      WriteLn('Ошибка! Введите количество остановок (1 или больше).'); 
       
  until stops >= 1; 
end; 
 
begin 
  GetValidInput(n); 
  t := CalculateTime(n); 
   
  WriteLn('Время в пути: ', t, ' минут'); 
  ReadLn; 
end.