var
s1, s2, s3, d:longint;
begin
writeln('Введите количество
орехов');
readln(s1);
writeln('Введите количество
грибов');
readln(s2);
writeln('Введите количество съеденных
орехов');
readln(s3);
d:=s1-s3;
writeln('Количество оставшихся
орехов ', d);
end.