Найти большое на языке Паскаль с полным и неполным и ветвлением

Question

Найти большое на языке Паскаль с полным и неполным и ветвлением

Answer 1

Var x, y, maximum: integer;

if x > y then
 maximum:=x;
else
 maximum:=y;

С неполным:

var x, y, maximum: integer;

maximum:=y;

if x > y then
 maximum:=x;