Решите подробно методом подбора, а то получается какая то ересь за

program z;

var a,b,a: real;   {при желании можна real поменять на integer }

begin

writeln ('vvedit a i b');

readln (a,b);

if a< b then begin

  c: =a;             {3-я переменная нужна чтобы не потерять неременную a} 

  a: =a*b;

  b: =b+c;

  writeln (a,b);       {вывод даных}

readln                 {задержка экрана}

end;

if a> b then begin   {neвкоем случае не менять эту строчку на "else"}

  c: =b;

  b: =a*b;

  a: =a+c;  

writeln (a,b);

readln  

end   {перед "end" точка з запятой не обязательная}

end. 

              скрипка   флейта   альта кларнет габое труба

браун         0             0           1           1           0         0

смит           0             1           0           0           1         0

вессон         1           0             0           0           0         1

из последнего условия следует что б. играет скрипке, флейте, альте или кларнете.

из 4ого условия следует что с. не альтеист и не трубач

из 3его условия следует что б. не скрипач и не играющий на флейте

с. не скрипач,иначе это противоречит условию 1му

var n,i: integer;

begin

  read(n);

  for i: = 2 to n-1 do

      if n mod i = 0 then writeln('no');

end.

var n,i: integer;

s: string;

begin

  read(s);

  for i: = 1 to length(s) do

      if s[i]="a" then n: =n+1;

  writeln(n);

end.

скорее всего так

1) представляем сам текст как массив элементов,потом в нём ищем элементы изменённые на неправильные т.е ставим гласную как ошибочную "чю, щю, чи, щи, жю, шю"и заменяем на правильные,выводим окончательные текст.2)сначала создаём массив с числами температуры и вычисляем их,потом получаем их количество,всё складываем и делим на количество.