The Pascal program. The computer receives the results of swimming competitions for three athletes.

The Pascal program. The computer receives the results of swimming competitions for three athletes. Write a program that picks the best result and displays it on the screen with a message that it is the best result.

There are only three athletes in the competition. So there will be three variables too. Another variable will be needed to temporarily store the best result.
var per_res, vtor_res, tret_res, temp_res: integer;
The best result will be the maximum, which means that the task is reduced to finding the maximum of the three numbers denoting the result.
Entering the results:
readln (per_res, vtor_res, tret_res);
if (per_res> vtor_res) then
temp_res: = per_res
else
temp_res: = vtor_res;
if (tret_res> temp_res) then
temp_res: = tret_res;
writeln (‘The best result is’, temp_res);