var
  a,b,rez: integer;
begin
  randomize; {запускаем генератор случайных чисел}
  a:=random(100); b:=random(100); {числа а и b генерируются на промежутке [0;100)}
  writeln(a,' - ',b,' = ???'); {выводим пример на экран}
  readln(rez); {запрашиваем ответ от пользователя}
  writeln(rez=(a-b)); {сравниваем на правильность}
  writeln(a-b); {выводим правильный вариант}
  readln;
end.
 

 const
  n = 5;
var
  ms: array [1..n, 1..n] of integer;
  i,j,count: integer;
begin
  randomize;
  count := 0; {эта переменная будет "подсчитывать" количество элементов массива, удовлетворяющих Вашему условию}
  for i:=1 to n do
   begin
     for j:=1 to n do
      begin
        ms[i,j] := random(101) - 30; {заполненяем ячейку массива}
        if (ms[i,j] > 0) and (ms[i,j] mod 5 = 0) {проверяем число на положительность и делимость на 5 без остатка}
         then inc(count); {если результат условия удовлетворительный, то увеличиваем значение переменной  count  на единичку}
        write(ms[i,j]:4); {выводим элемент массива на экран}
      end;
     writeln; {после того, как один ряд массива выведен на экран, переходим на следующую строку}
   end;
  writeln; {пропускаем строку}
  writeln(count); {выводим на экран показание счётчика}
  readln;
end.
 

program E2;
var a,b,x,y:real;
begin
a:=0.5;  {Наши переменные} 
b:=1.3;
readln(x);  {Ждем ввода значения x} 
if x<=0 then writeln('Error')  {Если x<=0, то ввыводим сообщение 'Error'} 
else {Если x>0}
    begin
    y:=a*(x+1)+b;   {Замените нужной формулой. Не забывайте, что символ * - символ умножения, / - символ деления, sqr - квадрат числа (например, sqr(5))} 
    writeln(y);  {Выводим значение y} 
    end;
end.

program E4;
var a: array [1..5] of real;
var s: real;
begin
readln(a[1],a[2],a[3],a[4],a[5]);  {просим пользователя ввести числа} 
s:=(a[1]+a[2]+a[3]+a[4]+a[5])/5;  {вычисляем среднее арифметическое} 
writeln(s); {выводим}
end.

program E5;
var i,j,z,x,ch,a,b,c: integer; 
begin
for i:=1 to 9 do  {i - количество десятков числа} 
begin
for j:=0 to 9 do  {j - количество едениц числа} 
begin
z:=0;  {z - дополнительная переменная} 
for x:=2 to 7 do  {в переменную x подставляются числа от 2 до 7} 
begin
ch:=(10*i+j)*x;  {ch - новое число} 
a:=trunc(ch/100);  {a - кол-во сотень нового числа} 
b:=trunc(ch/10)-a*10;  {b - количество десятков нового числа} 
c:=ch-a*100-b*10;  {c - количество едениц нового числа} 
if (a+b+c)=i+j then z:=z+1  {если суммы цифр нового и старого числа совпадают, то добавить к переменной z еденицу}  
end;
if z=6 then writeln(10*i+j, ', ', -(10*i+j), '.'); {если в переменной z - 6, то выводим число} 
end;
end;
readln(z)
end.

program e6;
const n=3;  {Задаем кол-во студентов} 
var a: array [1..n] of real;
var i:integer;
var d:real;
var x:integer;
begin
writeln('Введите рост каждого студента по списку:');
for i:=1 to n do
begin
write(i, ' ');
readln(a[i]);  {Считываем рост каждого студента} 
d:=d+a[i];
end;
d:=d/n;  {Вычисляем среднее арифметическое} 
for i:=1 to n do if a[i]>d then x:=x+1;  {Если у студента рост больше среднего, то добавляем к x еденицу} 
writeln('У стольких студентов рост превышает среднего: ', x)
end.