К какому классу – текстовым или графическим редакторам, драйверам, системам программирования, программам профессионального назначения и т.д. – относятся следующие программы:
Norton Commander, WinRar, keyboard.drv, «1С Предприятие», MS Word, Fox-
Pro, 3D Studio, C+, Фортран, Linux, Блокнот, mouse.drv, MS Excel, Adobe
Photoshop, Macromedia Flash, Компас 3D, Pascal, QIP, Си, Basic, AVP Касперского, Windows7, Paint, Outlook Express, HTML, Dr Web, MS Access, Nero
Premium, «Консультант Плюс», sound.drv.

Системное программное обеспечение
Системы программирования
Прикладное программное обеспечение
Операционные системы
Диалоговые оболочки
Драйверы
утилиты

Программы общего назначения
Программы специального назначения
Программы профессионального назначения

Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.

Var
  r, r2, x, y: real;
  n: integer;

begin
  Write('Введите величину радиуса окружности: '); Readln(r);
  r2 := sqr(r); n := 0;
  {1. Точки в первой четверти без учета попавших на оси }
  x := 1;
  while x <= r do
  begin
    y := 1;
    while y <= r do
    begin
      if sqr(x) + sqr(y) <= r2 then n := n + 1;
      y := y + 1
    end;
    x := x + 1
  end;
  n := 4 * n; { учли точки в остальных трех четвертях }
  n := n + 1; { учли точку в начале координат }
  n := n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }
  Writeln('Число точек, принадлежащих кругу, равно ', n);
end.

Тестовое решение:
Введите величину радиуса окружности: 3
Число точек, принадлежащих кругу, равно 29