veci broj

 program veci;
//max od 3 broja
var a,b,c,max: real;
begin
write ('Unesi 3 broja ');
readln (a,b,c);
if (a>b) then begin
         if (a>c) then max:=a
              else max:=c;
                  end
     else begin
                if (b>c) then max:=b
                 else max:=c;
              end;
writeln('max je ',max:8:2);
readln;
end.
___________
___________
 program veci;
//max od 3 broja  na drugi nacin
var a,b,c,max: real;
begin
write ('Unesi 3 broja ');
readln (a,b,c);
max:=a;
if (max<b) then max:=b;
if (max<c) then max:=c;

writeln('max je ',max:8:2);
readln;
end.
_______
________
 program veci;
//max od proizvoljnog niza brojeva
var a,max: real;
n,i: integer;
begin
write ('Koliko clanova ima niz? ');
readln(n);
write('prvi clan: ');
readln(a);
max:=a;
i:=2;
while (i<=n) do
    begin
    readln(a);
    if (max<a) then max:=a;
        i:=i+1;
    end;
writeln('max je ',max:6:1);
readln;
end.
________
__________
 program veci;
//max od proizvoljnog niza brojeva
var a,max: real;
n,i: integer;
begin
write ('Koliko clanova ima niz? ');
readln(n);
write('prvi clan: ');
readln(a);
max:=a;
i:=2;
if (n>1) then
    repeat
        write(i,'. clan ');
        readln(a);
        if (max<a) then max:=a;
        i:=i+1;
        until(i>n);
writeln('max je ',max:6:1);
readln;
end.