Прямоугольная область на экране монитора, которую занимает работающая программа, называется окно программы
Var
s: string := 'Мышки ели шишки.';
a: set of char := ['а'..'я', 'ё'];
n, i: integer;
begin
s := LowerCase(s) + ' ';
for i := 2 to Length(s) do
if not (s[i] in a) and (s[i-1]='и') then
n := n + 1;
writeln(n);
<span>end.</span>
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.
N=33+33+26+26+15+10=143 101*2=202 байтов 202*8=1616битов
В 1832 году ..............