Паскаль. даны три целых числа. выведите на экран самое большое из них.

program test;

var a,b,c: integer

begin

read(a,b,c);

writeln;

if (a>b) and (b>c) then write (a);

if (b>a) and (b>c) then write (b) else

write(c);

end.

В классе 30 учеников. Все они являются читателями школьной и районной библиотек. Из них 20 ребят берут книги в школьной библиотеке, 15 — в районной. Сколько учеников не являются читателями школьной библиотеки? Решение. Пусть круг Ш изображает читателей только школьной библиотеки, круг Р — только районной. Тогда ШР — изображение чи­тателей и районной, и школь­ной библиотек одновременно.Из рисунка следует, что число учеников, не являющихся чита­телями школьной библиотеки, равно:(не Ш) = Р - ШР.Всего 30 учеников, Ш = 20 человек, Р = 15 человек. Тогда значение ШР может быть найдено так (см. рисунок): ШР = (Ш + Р) - 30 = (20 + 15) - 30 = = 5, т.е. 5 учеников являются читателями школьной и районной библиотек одновременно. Тогда (не Ш) = = Р- ШР= 15- 5= 10.ответ: 10 учеников не являются читателями школьной библиотеки.

1)
var
  i, j: integer;
  ar: array[1..6, 1..6]of integer;
 begin
  for i := 1 to 6 do
    for j := 1 to 6 do read(ar[i, j]);
  writeln;
  for i := 1 to 6 do swap(ar[i, 1], ar[i, 6]);
  for i := 1 to 6 do swap(ar[i, 2], ar[i, 5]);
  for i := 1 to 6 do swap(ar[i, 3], ar[i, 4]);
  for i := 1 to 6 do begin
    for j := 1 to 6 do write(ar[i, j], ' ');
    writeln;
  end;
end.
2)
var
  mr, rm: array [1..6, 1..6] of integer;
  i, j: integer;
 begin
  for i := 1 to 6 do
      for j := 1 to 6 do read(mr[i, j] );
  for i := 1 To 6 do
    for j := 1 To 6 do
      rm[i, j] := mr[j, i];
  writeLn;
  for i := 1 to 6 do
  begin
    for j := 1 to 6 do write(rm[i, j],' ');
    writeln;
   end;
  readln;
end.