1)вывевсти на экран все произведения n на m, m уменьшается каждый раз на 2 до 0. пример: ввод m: =10; n: =3; вывод 30 24 18 12 6 2) n меняется 2 до 7, на экран выводиться m, которое равно n+x. x вводиться с клавиатуры. пример: ввод x: =4; вывод 6 7 8 9 10 11

Сообщение занимает 39 страниц по 27 строк. Значит, следует найти количество строк. 39×27=1053 строки. Нужно найти количество символов, т. е. количество байт в сообщении. В каждой строке по 35 символов: 1053×35=36855 байт в сообщении. Нужно перевести в Килобайты. В 1 Кб 1024 байт, значит 36855÷1024=35 Кб и 1015 байт в остатке.
ответ: 36855 байт в сообщении,
35 Килобайт и 1015 байт в сообщении.

Без подробностей:
1) 39×27×35=36855 (символов)- байты в сообщении
2) 36855÷1024=35 (Кб)- Килобайт и 1015 байт в сбщ.

1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.