Помогите пожалуйста , если есть возможность напишите лучше на листочке

Program abc;

Var a,b,c,D:integer;

begin

Read(a,b,c);

if a>b then d:=a else d:=b;

if c>D  then D:=c;

Write(D);

end.