В ПАСКАЛЬ АБС. В ЭВМ поступают результаты соревнований по плаванию для

Спортсменов в соревновании только три. Означает переменных тоже будет три. Еще одна переменная пригодится для временного хранения лучшего результата.
var per_res, vtor_res, tret_res, temp_res : integer;
Лучшим результатом будет максимальны, означает задача сводится к тому, чтоб из 3-х чисел, означающих итог, отыскать наибольшее.
Вводим результаты:
readln(per_res, vtor_res, tret_res);
if (per_res gt; vtor_res) then
temp_res := per_res
else
temp_res := vtor_res;
if (tret_res gt; temp_res) then
temp_res := tret_res;
writeln(Лучший итог равен , temp_res);