Даны два действительных числа x и y. если x> y то вычислить произведение этих чисел, иначе их сумму

Var
x,y:real;
begin
readln(x,y);
if x>y then writeln(x*y:0:0) else writeln(x+y:0:0);
end.

Мы такие вещи решали схемой(соре за кривой почерк)

Изменение шрифта на одном слайде

Выполните одно из указанных ниже действий.

Чтобы изменить шрифт одного абзаца или выражения, выделите текст, который нужно изменить.

Чтобы изменить шрифт всего текста в заполнителе, выделите весь текст или щелкните сам заполнитель.

На вкладке Главная в группе Шрифт выберите шрифт в поле Шрифт.

Изменение шрифтов во всей презентации

(Эта функция недоступна для PowerPoint в Интернете.)

На вкладке Вид в группе Режимы образцов выберите пункт Образец слайдов.

На левой панели, содержащей образцы слайдов и макеты, выберите эскиз образца слайдов или макет, содержащий шрифт, который вы хотите изменить.

В образце слайдов или макете щелкните текст заголовка или уровень основного текста, к которому нужно применить новое начертание шрифта.

На вкладке Образец слайдов в группе Фон щелкните Шрифты, а затем выберите шрифт из списка.

Повторите действия с 1 по 4 для других шрифтов, которые нужно изменить. Чтобы вернуться к изменению слайдов, на вкладке Образец слайдов в группе Закрыть выберите Закрыть режим образца.

Вы также можете использовать опцию заменить шрифт , чтобы изменить шрифт во всей презентации. Вот как это сделать.

На вкладке Главная в группе Редактирование нажмите кнопку заменить , а затем выберите команду заменить шрифты.

В диалоговом окне Замена шрифта в поле заменить выберите шрифт, который вы хотите заменить.

В поле На выберите шрифт, который вы хотите использовать, нажмите кнопку Заменить, а затем нажмите кнопку Закрыть.

Если вы используете один Образец слайдови измените шрифт на образце слайдов, во время презентации появится новый шрифт.

Если используется несколько образцов слайдов (например, когда к презентации применено несколько шаблонов), необходимо изменить начертание шрифта в каждом образце слайдов.

ответ 1:

Program zadacha;

var

i,n:integer;

begin

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

for i:=1 to n do  write(n-i+1);

end.

ответ 2:

Program zadacha;

var

i,a,b:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

  if (i mod 2 <> 0) then writeln(i);

end.

ответ 3:

Program zadacha;

var

i,a,b,sum:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

  if (i mod 10 = 7) then begin sum:=sum+i; end;  

  writeln('Результат: ',sum);

end.