program maximum; uses wincrt;
var
   getal1, getal2, max: integer;
begin
   write('Type twee gehele getallen: ');
   read(getal1);
   read(getal2);
   if getal1>getal2
   then
   begin
      max:=getal1
   end
   else
   begin
      max:=getal2
   end;
   writeln('Het maximum is: ',max)
end.