В ралли участвуют машины Ferrari, Тоета и Ford. Определить, какая машина

я не изучал паскаль но метод есть)

какой же?

T1,T2,T3 задаются с клавы?)

да

забираем числа сопоставляем их if-ами и распределяем места)

Program run;
var T1, T2, T3, min:integer;
begin
write('Введите время Феррари : ');readln(T1);
write('Введите время Тоета : ');readln(T2);
write('Введите время Форд : ');readln(T3);
if(T1gt;T2) then min:=T2
else min:=T1;
if(T3gt;min) then
begin
if(min=T1) then writeln('Самой прыткой была Феррари.')
else writeln('Самой прыткой была Тоета'); 
end
else writeln('Самой быстрой машиной был Форд.'); 
end.