Var
a, b, c: real;
begin
readln(a, b, c);
if a < b then a := b;
if a < c then a := c;
writeln(a);
end.
поскольку сохранять числа не надо, то мы жертвуем теми, что нам не нужны
изначально решаем что А будет самым большим. Если А меньше второго числа, то присваиваем значение второго числа А. Аналогично с третьим.
В конце выводим А