Помогите пожалуйста сделать, заранее спасибо! Имеется четыре произвольных числа(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.