Разработать алгоритм, который бы выводил на экран все четные числа в диапазоне от 0 до 100.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0,100,2).Println
end.

Результат
0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100

Pascal ABC:

program he9e;
var i: Integer;
begin
for i:=2 to 100 do
if i mod 2=0 then write(i,' ');
end.

Объяснение:

1-2

2-2

3-3

4-1

5-3

6-3

7-3

8-2

9-2

10-1)текстовый файл, содержащий электронный адрес получателя и текст письма;

2)имя пользователя@имя сервера;

3)особенность электронной почты состоит в том, что для работы с ней используются два прикладных протокола: один – для отправки исходящих сообщений, а другой – для получения входящей корреспонденции;

4)ящик, предназначенный для сбора или доставки электронных писем, почтовых карточек и др. ;

5)это массовая рассылка сообщений пользователям, не дававшим согласия на их получение;

6)скорость, простота, дешевизна, возможность массовой пересылки;

7)это набор правил, которые правильно передавать информацию на почтовый сервер или с него.

Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; s := 0;
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; c := 0;
Цикл по i от 1 до n (по строкам)
Цикл по j от 1 до m (по столбцам)
Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1;
Если (A(i, j) > Max) То
k := i; p := j; c := 1;
Max: = A(i, j);
Конец Если
Конец цикла по столбцам
Конец цикла по строкам
Вывод "Элемент ", Max, " встречается ", c, " раз"
Конец.

Программа
var A: array of array of integer
var i,j,m,n,k,p,s,Max: integer
BEGIN
uses crt; clrscr;
write ('Vvedite kol-vo strok: '); readln (n);
write ('Vvedite kol-vo stolbtsov: '); readln (m);
setlength(A,n,m);
for i=1 to n do
begin
for j=1 to m do
begin
write ('Vvedite element vassiva: '); readln (A[i,j]);
end;
end;
Max := A[1,1]; k := 1; p := 1; c := 0;
for i=1 to n do
begin
for j=1 to m do
begin
if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1;
if (A(i, j) > Max) then
begin
k := i; p := j; c := 1;
Max: = A(i, j);
end;
end;
end;
write ('Element ', Max, ' vstrechaetsya ', c, ' raz');
END.