Var
    a, b, c: real;

begin
    readln(a, b, c);
    if a lt; b then a := b;
    if a lt; c then a := c;
    writeln(a);
end.

поскольку сохранять числа не надо, то мы жертвуем теми, что нам не нужны
изначально решаем что А будет самым большим. Если А меньше второго числа, то присваиваем значение второго числа А. Аналогично с третьим.
В конце выводим А