1.Описать следующие переменные по образцу: var i:integer; 1) x1, x2- целочисленные; 2) y1, y2- вещественные; 3) a- строковую; 4) b- логическую; 5) c- символьную. 2. Записать операторы ввода вывода по заданиям: 1) Ввести переменные x1, x2 без перехода курсора на новую строку; 2) Вывести текст "школа №16" с переходом курсора на новую строку; 3) Ввести переменную а с переходом курсора на новую строку; 4) Вывести значение переменной b с пояснением без перехода курсора на новую строку. 3.Записать условный оператор на Паскале; 1)Если x>0, то вывести «положительное» иначе если x<0, то вывести «отрицательное» иначе вывести «=0»; 2)Если а>=10 и a<=99, то вывести «двузначное». 4.Записать цикл на языке Паскаль; 1)Пока а>0 делать а присвоить а-5; 2)Повторять x присвоить x+2 до тех пор, пока x>20; 3)для y от 5 до 10 делать s присвоить s+3. Заранее

Цикл с предусловием это такой цикл, в котором условие проверяется перед выполнением тела цикла.
А цикл с постусловием - на оборот, он сначала выполнит, а потом проверит условие и если условие true, то цикл завершится.

Цикл с постусловием, можно использовать в таких ситуациях, когда надо что-то сделать и если чего-то не хватает, то сделать еще раз. Напрмер отправить письмо на email, а если не отправилось, то повторить еще 3 раза. Сначала выполнится тело цикла, в котором находятся функции отправки письма и если отправка удачная, то сообщаем until() true. Иначе тело выполнится еще и еще и еще кучу раз, если мы не задали счетчик в теле цикла, как вариант...

Цикл с предусловием можно использовать, если надо проверять какое-то значение ПЕРЕД выполнением тела цикла и тебе не важно, должно ли оно хоть раз выполниться. Например запросить пароль у пользователя. Но если пользователь уже ввёл пароль, то зачем его запрашивать? Тут можно было бы использовать while

Program v1;
var a,b,c: real;
begin
readln (a,b,c);
If c > a+b then writeln ( 'Такого треугольника не существует');
If a > c+b then writeln ( 'Такого треугольника не существует');
If b> a+c then writeln ( 'Такого треугольника не существует');
If a=b and a=c  then writeln ('Этот треугольник равносторонний');
If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный');
If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный');
If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный');
If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный');
end.