Дана программа нахождения меньшего из двух чисел.

Var a,b: integer; procedure poisk(a,b: integer); begin   if a > b then       writeln('меньшее число ', b);     if a=b then         writeln('равны');       if a < b then         writeln('меньшее число ', a); end;   begin   writeln('введите числа');     readln(a,b);   poisk(a,b); end.

1.подключается модуль, отвечающий за графику 2.начало объявления переменных 3,объявляется переменная "а", с числовым типом 4.начало программы 5.необходимо ввести значение переменной "а" 6.перемещает указатель (начальную точку) на координаты а,1 где а - координата по оси х, 1 - координата по оси y 7.рисует окружность с центром в точке x = а+а div 2,y = 1 где div целочисленное деление. то есть если а=5, то 5+5 div 2 будет равно 5. и третий параметр это радиус, то есть радиус равен а div 4. 8. функция linto(x,y) рисует прямую линию в точку с координатами x и y. причем рисует из точки, в которой указатель был до этого. то есть в данном случае из точки в центре окружности. я думаю дальше можно догадаться, так как все функции описал. программа написана на языке pascal и она рисует что-то.