Надо 3 задачи!

[CEZ]

Помогите решить 3 задачи в паскале и записать их отдельно в машинном коде! Заранее спасибо! =)


1.
Успеет ли пассажир доехать за M часов до города, расположенного за
S км на автомобиле, который едет со скоростью 60 км/ч?


2.
Напечатать таблицу значений перевода температуры из градусов Цельсия
(С) в градусы по шкале Фаренгейта (F) для значений от 15 до 30° С с шагом
1°. Формула для перевода: F=1,8C+32.


3.
Два велосипедиста отправляются навстречу друг другу с одинаковыми скоростями v км/ч. и встречаются через t час. Найдите расстояние между велосипедистами в начале их движения.

[DRAgon™]

2

var c,i:integer;
f:real;
begin
for i:=15 to 30 do begin
Writeln('C - rad:',i);
end;
for i:=15 to 30 do begin
F:=1.8*i+32;
Writeln('F - rad:',f);
end;

end.

[Jop]

1.

program Project1;
var V:integer;
T,S1,S2:real;
begin
V:=60;
writeln('Введите расстояние и время');
readln(S1,T);
S2:=V*T;
S2:=S2-S1;
if (S2>=0) then
Writeln('Успеет')
else
writeln('НЕ успеет');
readln;
end.

На скорою руку, кривой, но работает))