Если самый прямолинейный способ, путём сравнения каждого числа с каждым, то вот

uses crt;
var a,b,c,d:integer;
Begin
Writeln(' Введите 4 числа');
Readln(a,b,c,d);
If (a>b) and (a>c) and (a>d) then
Writeln('Наибольшее число из данных ', a)
Else
If (b>a) and (b>c) and (b>d) tnen
Writeln('Наибольшее число из данных ', b)
Else
If (c>a) and (c>b) and (c>d) then
Writeln('Наибольшее число из данных ', c)
Else
Writeln('Наибольшее число из данных ', d);
End.