4. Створіть проект, у якому в результаті настання події Click для напису буде встановлено: зменшення його відступу від лівої межі вікна на 20 пікселів, розмір символів 12, колір символів синій і виведеться в напис назва вашого закладу освіти; • зменшення ширини напису на 2 символи, розмір символів 12, колір сим- волів синій і виведеться в напис назва вашого закладу освіти. сіті проект папці з іменем Завдання 6.4.4, створеній у вашій папц

80 * 60 = 4800 символов на 1 странице

4800 * 450 = 2160000 символов в книге

обычно 1 символ кодируется 1 байтом информации, значит

в книге 2160000 байт, переведем их в мегабайты

2160000 : 1024 = 2109,375 кб (килобайт)

2109,375 : 1024 = 2,06 мб (мегабайт)

следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

почитай тут 

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}