{* Задача 338 *}

Unit ZADACH338;
Interface
Implementation
Begin
 writeln('Задана целочисленная матрица А размерностью 5x7. Переставьте местами первую и последнюю строку данной матрицы. ');
End.

Program zion;

Uses zadach338.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k : real;
  a : integer;
  i : integer;
Begin
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    writeln('vvedite chislo');
    readln(a);
    If (a Mod 4 = 0) And (a Mod 60) Then
  End;
  Begin
    writeln('a=', a : 3);
    k := k + 1;
    writeln('k=', k : 3);
    readln; {* Приостановка программы. Ожидание Enter *}
  End;
  
End.