Склавиатуры вводится 2 числа, если они оба больше 5, то найти их полусумму, иначе удвоенное произведение.

Program s123; var a,b: real; begin  writeln('введите значения 2 чисел');   readln(a,b);   if (a> 5) and (b> 5) then a: =(a+b)/2 else a: =(a*b)*2;   writeln(a); end.

==========================================================================

Коли в новій презентації вже є деяка кількість слайдів, можна переходити до наповнення її матеріалом. Додавання об'єктів на слайд може здійснюватися як за до команд стрічки, так і за до заповнювачів, розміщених в макетах слайдів.

В макетах можуть розташовуватися наступні текстові та об'єктні заповнювачі:

• текст;

• малюнки;

• рисунок SmartArt;

• знімки екрану;

• діаграми;

• таблиці;

• схеми;

• кліп мультимедіа;

• картинки;

• фільми;

• звуки.

==========================================================================

Const n=20; var a: array[1..n] of integer; i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(1001)-500;   write(a[i]: 5);   end; writeln; writeln('положительные'); for i: =1 to n do   if a[i]> 0 then write(a[i]: 5); writeln; writeln('отрицательные'); for i: =1 to n do   if a[i]< 0 then write(a[i]: 5); writeln; end. пример (для n=10): исходный массив:     6   -51   324 -174   -27   224   276 -437 -144 -490 положительные     6   324   224   276 отрицательные   -51 -174   -27 -437 -144 -490