Рисуешь два пересекающихся круга Эйлера. Один изображает учеников, изучающих английский, другой - французский. Пересечение - ученики, изучающие оба предмета.
Далее по твоему рисунку будут видны следующие действия:
25-18=7 - количество учеников, изучающих <u>только английский</u>
27-18=9 - количество учеников, изучающих <u>только французский</u>
7+9+18=34 - всего учеников
Наиболее удобной формой для представления большого количества однотипной информации является ТАБЛИЦА
Солнце песок море жара лучи шорты веселье облака небо отдых каникулы
Var
m,g,a:real;
Begin
Write('Введите массу и ускорение (Через пробел) ');
Readln(m,a);
g:=9.8;
Write('Сила сопротивления воздуха равна ',m*g-m*a);
End.