у меня экзамен ,а я не понимаю эту тему всех кто разбирается в Разработайте программу, которая запрашивает у пользователя координаты двух концов отрезка на плоскости и определяет, является ли этот отрезок горизонтальным, вертикальным или наклонным.
действовать надо по ниже написанному алгоритму
самое первое я понял ,написал dim x1,x2,y1,y2 as integer
а дальше не знаю
1. задать Х1, У1
2. задать Х2, У2
3. если х1<>x2., a y1=y2 , то отрезок горизонтальній
4. если х1< или >x2., a y1<>y2 , то отрезок наклонный
5. если х1=x2., a y1<>y2 , то отрезок вертикальный

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.

Это для PowerPoint для Microsoft 365 PowerPoint 2019 PowerPoint 2016

Объяснение:

Место для хранения шаблона

Шаблон, который вы сами создали или получили из другого источника, нужно сохранить в правильном расположении, чтобы его можно было легко применить к презентации.

C:\Users\<UserName>\AppData\Roaming\Microsoft\Templates

Замените <имя пользователя> вашим именем пользователя на этом компьютере.

Подтвердите расположение шаблона в Office

Выберите Файл > Параметры > Сохранить.

В разделе Сохранение презентаций укажите в поле Расположение личных шаблонов по умолчанию расположение, приведенное выше и подходящее для вашей операционной системы Windows.

Нажмите кнопку ОК.