Решите задачу
(обоснование в виде схемы или таблицы истинности)

Для того чтобы посмотреть содержимое страницы, заблокированной в нашей стране, используйте сайт-прокси? Да Для каждого спецсимвола, будь то кавычки «ёлочкой» или длинное тире, существует цифровая комбинация, которую нужно запомнить? да Чтобы изменить разрешение экрана монитора на Windows нужно войти во вкладку управления экраном панели управления, выбрать новое разрешение и нажать ОК? Да отправить фотку или файл по скайпу Нужно нажать правой кнопкой на получателя, выбрать «отправить файл», затем найти фото на вашем компьютере и нажать «Открыть». Передача файла начнётся и принимающей стороне нужно будет подтвердить приём файла.

Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько примеров будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Правильно');
    end
    else writeln('Неверно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты превосходно знаешь арифметику');
if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику');
if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику');
if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 действия.