Как сделать фото в скретч? часть третья

на Free Pascal

Объяснение:

var

 a : integer;

 n, i, big, nc, ncount  : integer;

begin

 writeln('Введите количество чисел :');

 readln(n);

 big := 0;

 nc := 0;

 ncount := 0;

 for i := 1 to n do begin

   writeln('Введите ', i, ' число:');

   readln(a);

   if a>20 then

     big := big + a;

   if (a mod 2) <> 0 then begin

     nc := nc + a;

     inc(ncount);

   end;

  end;

 writeln('Сумма чисел > 20 = ', big);

 writeln('Среднее арифметическое ',ncount,' нечётных чисел =', nc/ncount:2:2);

end.

Всего существует 16 (ну лично я смогла только эти найти) вариантов форматирование слова.
1) Шрифт 1
2) Шрифт 2
3) Шрифт 1; полужирное
4) Шрифт 2; полужирное
5) Шрифт 1; полужирный; курсив
6) Шрифт 2; полужирный; курсив
7) Шрифт 1; полужирный; курсив; подчеркнутое
8) Шрифт 2; полужирный; курсив; подчеркнутое
9) Шрифт 1; курсив
10) Шрифт 2; курсив
11) Шрифт 1; курсив; подчеркнутое
12) Шрифт 2; курсив; подчеркнутое
13) Шрифт 1; подчеркнутое
14) Шрифт 2; подчеркнутое
15) Шрифт 1; полужирный; подчеркнутое
16) Шрифт 2; полужирный; подчеркнутое