1)Составить программу для поиска наибольшего из 4 чисел.
2) Cоставить программу поиска наибольшего из трех чисел с учетом того, что числа могут быть равны.
Только плз чтобы там было типо такого : Var a,b,c,d max:integer

1)
var
  a, b, c, d, max: integer;
 begin
  readln(a, b, c, d);
  if(a gt; b) and (a gt; c) and (a gt; d) then max := a
  else if(b gt; a) and (b gt; c) and (b gt; d) then max := b
  else if(c gt; a) and (c gt; b) and (c gt; d) then max := c
  else max := d;
  write(max);
end.
2)
var
a, b, c, max:
integer;
 begin
  readln(a, b, c);
  if(a gt; b) and (a gt; c) then max := a
  else if(b gt; a) and (b gt; c) then max := b
  else max := c;
  write(max);
end.