1. Сколько раз будет выполнен следующий цикл (развернутый ответ с пояснениями):
а) i:=21;
repeat
i:=i-5
until i>21;
б) for m:=2 to 11 begin
writeln (m);
m:= m+3
end;
2. Найдите результат выполнения программы (развёрнутый ответ с пояснениями):
а) i:= 0; s:= 0
while i<2 do
begin
i:= i+1;
s:=s+i*i
end;
б) sum:= 0;
for i:= 5 to 9 do
sum:= sum+i;
в) s:=12;
for w:= 3 to 9 do
s:= s-w;
writeln (s);
г) repeat
writeln (`Информатика`);
n:= n+1;
until n>7
3. Составьте блок-схему к следующей задаче: найдите кол-во положительных чисел, выбранных случайно на отрезке (-50;50).
4. Найдите ошибки в программе, которая находит наибольшее из пяти вводимых с клавиатуры чисел:
var x, i, m: integer;
begin
writeln (`Введите число`); readln (x);
m:= x;
for i:= 1 to 4 do begin
readln (x);
if x<>m then x: = m
end;
writeln (`Наибольшее число=`,m);
end.

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49