<em /><em />Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.
<span><span>program ggl;
</span>Это название программы
</span><span>var n, i, sum : integer;
</span>Описание переменных
<span>a : array [1..1000] of integer;
</span>Описание массива а (он целочиленный, в интервале от 1 до 1000)
<span>begin readln (n);
</span>Начало программы, запрос значение переменной n
<span> sum := 0;
</span>Присвоение переменной sum значение 0
begin readln (n);
sum := 0;
<span> for i := 1 to n do begin </span>
<span> a[i] := random (100); </span>
write (a[i], ' ');
<span> sum := sum + a[i]; </span>
<span>end; </span>
begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран.<span>
</span>После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается.
writeln;
write (sum / n);
<span>end.
</span>Вывод значения деления переменной sum на переменную n. Конец всей программы.
Var
N,M,S,A,i,j:integer;
Begin
S:=0;
j:=0;
Write('N = ');Read(N);
Write('M = ');Read(M);
For i:= 1 to N do
Begin
A:=random(2001)-1000;
Write(A,' ');
if A mod M = 0 then
Begin
S:=S+A;
j:=j+1;
End;
End;
WriteLn;
if j=0 then Write('Чисел, кратных ',M,' нет')
else Write('Среднее арифметическое чисел, кратных ',M,' = ',S/j);
End.
Там её небудет туда не вложена это програма я сама удивилась когда заметилп что её нет