Можете написать по как в pascal нарисовать окружность(круг) ! !

Setbrushcolor(clblue); - установка синего цвета для закрашивания
circle(200,200,50); - закрашенный круг синего цвета с центром в точке (200,200) и радиусом 50

Program SummaDrobi;
// это необязательная строчка с названием программы 
var a, b, c, d, n, m: integer; 
// это объявление 6-ти переменных целого типа для хранения данных
begin 
writeln ('Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:');
// это вывод на экран текста
a := 2; b := 5; c := 3; d := 7;
// это присвоение значений в переменные из самой 
// программы (ввод данных с клавиатуры отсутствует)
writeln ('Первая дробь равна: ' ,a, '/', b, ', вторая дробь равна: ', c, '/', d);
// это уже вывод обработанной информации на экран
writeln ('Теперь найдём сумму дробей ');
n := a*d; m := c*b; 
// это обработка данных перед выводом на экран
writeln ('Конечная несокращённая дробь равна: ', n+m, '/', b*d);
// это вывод на экран конечного решения
end.

Результат:
Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:
Первая дробь равна: 2/5 вторая дробь равна: 3/7
Теперь найдём сумму дробей 
Конечная несокращённая дробь равна: 29/35

Анна Брусникина
Тамара Черникина
Галина Морошкина
Ирина Клубникина    и
Полина  Малинина
 
с начала про Ирину: с условия мы понимаем что она не является ни малининой, ни черникиной, ни морошкиной(так как все предположения подруг оказались неверными, а первое место заняла морошкина, вывод морошкина - не Ирина)
Анна - ну тут все ясно, вычеркиваем из ее столбца малинину, клубникину, черникину, морошкину, а Анна у нас Брусникина (значит никто из девочек больше не может быть клубникиной, и тут выясняем что Ирина у нас клубничку любит, опять же никто из девочек не может быть больше клубникиной.)
Полина у нас не может быть Морошкиной, это мы ясно видим, но возвратимся к неверным предположениям, 4 место в этих предположениях занимает... Черникина. Вычитаем эти 2 фамилие из общей массы. Полина получается у нас малининой.
С тех же самых ошибочных предположений находим что Тамара черникина, а Галина Морошкина
надеюсь