Напишите программу определения времени встречи двух автомобилей, если известно расстояние между двумя пунктами, откуда они вышли навстречу друг другу одновременно, а также их скорости.в паскале

Var   s,v1,v2: integer;   t: real; begin write('введите расстояние между автомобилями (в км.): '); readln(s); write('введите скорости автомобилей (в км/ч): '); readln(v1,v2); t: =s/(v1+v2); writeln('встретятся через ',t,' ч.'); end.  

Это минимум п.с. можешь удалить этот коммент!

Program 1123; type data = record      g: 0..3000;       mes: 1..12;       day: 1..31;       end; var d1,d2: data; begin  writeln('введите дату через пробел(число, месяц, год)'); readln(d1.day,d1.mes,d1.g); d2: =d1; d2.day: =d1.day+1; with d2 do  case mes of  1,3,5,7,8,10: begin                if day=32 then begin mes: =mes+1; day: =1; end;               end; 4,6,9,11: begin              if day=31 then begin mes: =mes+1; day: =1; end;           end; 2: begin      if g mod 4=0 then begin                          if day=30 then begin mes: =mes+1; day: =1; end; end                  else begin                          if day=29 then begin mes: =mes+1; day: =1; end;                         end;   end; 12: begin      if day=32 then begin g: =g+1; mes: =1; day: =1; end;     end; end; writeln('следующий день ',d2.day,'.',d2.mes,'.',d2.g); end.

Const  mas : array [0..6,0..8] of string = (('иванов иван иванович         ', '1', '2', '3', '1', '5','3', '3', '2'),                                      ('петров петр петрович         ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('сидаров сидор сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                               ('алексеев алексей алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                      ('сергеев сергей сергеевич     ', '2', '2', '5', '5', '5','5', '2', '3'),                                      ('степанов степан степанович   ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('давыдов давид давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                               var sr: real; // средний     b: real; begin  writeln('');   writeln('|             фио             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');   writeln('');   for var i: =0 to 6 do begin    write('|'+mas[i,0]+'|');       sr: =0;     for var j: =1 to 8 do begin    write(' '+mas[i,j]+' |');     double.tryparse(mas[i,j],b); // строку в число    sr: =sr+b;     end;     sr: =sr/8;     write(sr: 5: 3);     write('|');     writeln;   end;   writeln('');   end.