Найти наибольшее из 3-х чисел. И если можно, то разжуйте, пожалуйста :)

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. поскольку сохранять числа не надо, то мы жертвуем теми, что нам не нужны изначально решаем что А будет самым большим. Если А меньше второго числа, то присваиваем значение второго числа А. Аналогично с третьим. В конце выводим А