Ответ:
program Num2;
var
a, b: Integer;
begin
Randomize;
Write ('Исходные числа: ');
a := Random (10);
b := Random (10);
Write (a, ' ', b);
WriteLn;
if a < b then
WriteLn ('Меньшее число = ', a)
else if a > b then
WriteLn ('Меньшее число = ', b)
else
WriteLn ('Числа равны.');
ReadLn;
end.
Ну как чего не хватает... У тебя в цикле for несколько операций (Счетчик и вывод) - для этих моментов (Много операций в цикле) используется begin end;
Var a,x,b:integer;
begin
for a:=20 to 100 do
if a mod 3 = 0 then x:=x+a;
writeln(x);
<span>end.</span>
Очевидно сообщение по объему уменьшится вдвое. Таким образом в 8-битной кодировке сообщение будет 60 байт. 1 байт = 8 бит.
То есть 60 символов длина сообщения.
Использовать режим инкогнито во время работы в браузере