Сегодня последний день.
1: Скорость некоторого соединения равна 350 кбайт/с. Сколько времени
потребуется для передачи 654 страниц текста, если для кодирования
символов используется кодовая таблица UNICODE, и каждая страница в
среднем содержит 109 символов?
2: Определить, какое кол-во информации будет занимать текст,
расположенный на странице 172 вашего учебника по информатике,
если для кодирования будет использоваться 8-ми разрядная
кодировка. ответ перевести в кбайты.

Program D1KPxx18;
uses crt;
var
x,y,a:real;
label 1,2,3,4;
begin
4:writeln('Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход');
read(a);
if a=1 then
goto 1;
if a=2 then
goto 2;
if a=3 then
goto 3;
1:begin
writeln('Введите "х"');
read(x);
y:=sin(x);
writeln('Синус "х" равен  ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
2:begin
writeln('Введите "х"');
read(x);
y:=cos(x);
writeln('Косинус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
3:writeln('Пока!');
end.

Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню... это если я правильно понял что именно значило:"Организовать меню")))

1)
uses crt;
const size = 10;
var a:array [1..size] of integer;
     i,p:longint;
begin
  p:=1;
  randomize;
  for i:=1 to size do
    begin
      a[i]:=random(20);
      write (a[i],' ');
      if (a[i] mod 3 = 0) then p:=p*a[i];
    end;
  writeln;
  writeln (p);
end.

2)
uses crt;
const size = 10;
var a:array [1..size] of integer;
     i:integer;
     s:real;
begin
  s:=0;
  randomize;
  for i:=1 to size do
    begin
      a[i]:=random(4)+1;
      write (a[i],' ');
      s:=s+a[i];
    end;
  writeln;
  s:=s/size;
  writeln (s);
end.