Ввести два целых числа a и b (a ≤ b) и вывести квадраты все чисел от a до b.
Пример:
Введите два числа:
4 5
4*4=16
5*5=25
На языке Паскаль

1. когда установившиеся пары танцующих притиснули всех к стене, он, заложивши руки назад, глядел на них минуты две внимательно (=времени

2. и весьма часто, сидя на диване, вдруг, совершенно неизвестно из каких причин, один, оставивши свою трубку, а другая работу (при каком только она держалась на ту пору в руках, они напечатлевали друг другу такой томный и длинный поцелуй( в продолжение его можно бы легко выкурить маленькую соломенную сигарку. =условия; определит.

3. последние слова понравились манилову, но в толк самого дела он все-таки никак не вник и вместо ответа принялся насасывать свой чубук так сильно (до какой что тот начал наконец хрипеть, как фагот.

4. она сразу уснула (то произошло вследствие так что на мой вопрос я услышал только её ровное дыхание.=следствия.

5. я пришёл к тебе затем, чтобы всё объяснить.=цели

6. и чем темнее становилось на улице, тем ярче сияли на небе звёзды.=сравнения

7. дорога была грязная (несмотря на хотя дождь прошёл ещё вчера вечером =уступки

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.