У Васи есть доступ к Интернету по высокоскоростному односторон- нему радиоканалу, обеспечивающему скорость получения им инфор-
мации 256 000 бит/с. У Пети нет скоростного доступа к Интернету,
но есть возможность получать информацию от Васи по низкоскорос-
тному телефонному каналу со средней скоростью 32 768 бит/с. Петя
договорился с Васей, что тот будет скачивать для него данные
объёмом 5 Мбайт по высокоскоростному каналу и ретранслировать
их Пете по низкоскоростному каналу. Компьютер Васи может начать
ретрансляцию данных не раньше, чем им будут получены первые
375 Кбайт этих данных. Каков минимально возможный промежуток
времени (в секундах) с момента начала скачивания Васей данных до
полного их получения Петей?​

Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>>a:=1; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы

P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются

По порядку: 
Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;
1) Beigin; правильно Begin и без точки с запятой
2)p=0;  оператор присвоения пишется не просто равно, а := правильно: "p:=0;"
3)i=1; см. 2пункт
4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать  в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin
5)i=i+2; см. пункт 2
6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 
7) End. в конце цикла пишут end; 
8) в конце программы ставят End.

Откорректированный код:

Program z_1
Var i,p : integer;
Begin
p:=0;
i:=1;
while (i > 15) do begin
p:=p*i;
i:=i+2;
  end;
write('произведение нечётных чисел от 1 до 15 =',p);

End.