Сделать, заранее ! имеется четыре произвольных числа(abcd). составить программу на алгоритм чеком языке програмирования, анализирующую эти числа и отвечающую на вопрос: правда ли, что последнее число самое большое?

Program one;
Uses CRT;
Var a,b,c,d:real;
If (b>a) and (b>c) and (b>d) then writeln('последнее число большее');
Else writeln('последнее число не самое большое');
End.