Program p1;
uses crt;
var a,b,c:int;
Begin
ClrScr;
writeln('Введите к-во друзей Миши');
readln(a);
writeln('Введите к-во друзей Толи');
readln(b);
writeln('Введите к-во общих друзей Толи и Миши');
readln(c);
writeln(a+b-c,' - к-во друзей, которые не знакомы одновременно с Мишей и Толей');
writeln('Нажмите ентер для выхода из программы');
readln;
End.