Выполните на компьютере все программы в данном параграфе (лень думать плиез, скину все фоточки параграфа в соц сетях, или же учебник по информатике 9 класс семакин) ​

б)имя существительное

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;  

бег - бог - бок - бак - мак - маг -шаг