Pascal в заданном тексте подсчитайте общее количество букв "х" и "у"

program xjkhjh;

uses crt; var t: string;

  i, summ: byte;

begin  

writeln('введи текст: ');

  readln(t);

  summ: =0;  

for i: =1to length(t)do

  if t[i]in['y','x']then inc(summ);  

writeln('сумма = ',summ);

end.

#include< iostream> using namespace std; int main() { int n; cout < < "enter n" < < endl; cin > > n; for (int x = 0; x < = sqrt(n); x++)     for (int y = 0; y < = sqrt(n); y++)         for (int z = 0; z < = sqrt(n); z++)           for (int t = 0; t < = sqrt(n); t++)               if (x*x + y*y + z*z + t*t == n)              cout < < "x=" < < x < < " y=" < < y < < " z=" < < z < < " t=" < < t < < endl; system("pause"); return 0; }

{подсчет количества чисел в диапазоне от   l до r,  в записи которых нет одинаковых цифр}   var i,j,k,n,m,l,r,nmb: integer;     a: set of 0..9; begin   write('от числа:   ');   readln(l);   write('до числа:   ');   readln(r);   nmb: =0;   for i: =l+1 to r-1 do   begin     n: =0;   k: =i;   a: =[];     while (k> 0) do     begin       a: =a+[k mod 10];       k: =k div 10;       n: =n+1;     end;     j: =0;     foreach m in a do j: =j+1;     if n=j then    nmb: =nmb+1;   end;     writeln('количество чисел = ',nmb); end.