Вычислите значение переменной z: x = 25; y = 7; z = x % y +y *​

Program _9;
Type marr = array [1..100,1..100] of real;
procedure p1(var x:marr;r1,r2:integer);
var i,j:integer;
begin
for i:=1 to r1 do
 begin
 for j:=1 to r2 do
  begin
   x[i,j]:=random(10);
   write(x[i,j]:4);
  end;
  writeln;
 end;
end;
function f1(var x:marr;r1,r2:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i:=1 to r1 do
 for j:=1 to r2 do
   if (x[i,j]>=0)and(x[i,j]<=1) then k:=k+1;
f1:=k;
end;
Var a,b: marr; n,m,s,d: integer;
Begin 
randomize; 
writeln('n,m:');
readln(n,m);
writeln('Первая таблица:');
p1(a,n,m);
writeln('s,d:');
readln(s,d);
writeln('Вторая таблица:');
p1(b,s,d);
writeln('k1 = ',f1(a,n,m));
writeln('k2 = ',f1(b,s,d));
end.

#include <iostream>

#include <set>

using namespace std;

int main()

{

   string a, res;

   getline(cin, a);

   for(int i = 0; i < a.length(); i++){

      if((int)a[i] >= 65 && (int)a[i] <= 90) res += (char)(65 + int)a[i]) - 65) + 3) % 26));

      else if((int)a[i] >= 97 && (int)a[i] <= 122) res += (char)(97 + int)a[i]) - 97) + 3) % 26));

      else res += a[i];

   }

   cout << res;

   return 0;

}

Объяснение:

Алгоритм простой. Побуквенно считываем строку и если буква - элемент латинского алфавита - кодируем ее, иначе оставляем как есть.

P.s. Если ответ, жмякните на " " . Это мотивирует давать ответы дальше.