Pascal. написать алгоритм нахождения максимума из трех чисел (a,b,c) на языке паскаль.

uses crt; vara, b , c: real; beginreadln (a, b, c); if (a> b) and (a> c) then writeln (a, ' max'); if (b> a) and (b> c) then writeln (b, ' max'); if (c> a) and (c> b) then writeln (c, ' max'); if (c=a) and (c=b) then writeln ('vse chisla ravni'); readkey; end.

uses crt; var a,x,y,z: integer; begin write ('x='); read (x); write ('y='); read (y); write ('z='); read (z); if x> y then a: =1else a: =0; if (a=1) and (x> z) then write('x-bolwe'); if (a=0) and (x< z) and (z> y) then a: =3; if (a=0) and (y> z)then write('y-bolwe'); if (a=3) thenwrite('z-bolwe'); read; end.

находит большее из 3-х, ты ведь это имела ввиду)

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.