На паскале abc с простой версией(40 ) : среди заданных чисел найти количество двухзначных чисел. формат ввода: на первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000 на второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел. формат вывода: целое число. пример входных данных 5 1 -20 -3 40 0 пример выходных данных 2

Program n1;
var n,i,a,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
read(a);
if abs(a) in [10..99] then k:=k+1;
end;
write(k);
end.

Uses  crt;
var  item, rub, doll: real; 
  job: integer;
begin   
writeln('Введите курс ру по отношению к дол: '); 
read(item);//Вводим курс рубль-доллар 
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?'); 
read(job);//Вводим режим 
case job of
  2:      begin       
writeln('Введите кол-во рублей: ');       
 read(rub);//Вводим рубль       
 rub := rub / item;       
writeln('doll = ',rub);
end;
1:      begin       
writeln('Введите кол- во долларов: ');       
read(doll);//Вводим доллар       
doll := doll * item;       
 writeln('rub = ',doll);
end;
 end;    
 end.

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