37162485
17362485
18362475
18365472
12365478
12345678
Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
Program gt;
var i,k:integer;
begin
k:=0;
for i:=1 to 1000 do
if(i mod 2=1)then begin
k:=k+1;
write(i,' ');
if(k=20)then exit;
end;
end.
2)
program gt;
var i,k:integer;
begin
k:=1;
write(k,' ');
for i:=1 to 14 do
begin
k:=k+3;
write(k,' ');
end;
end.
1.В.
2.С.
3.В
4.А
а дальше наугад)))
Var a,b:integer;
begin
readln(a,b);
if a>b then write(a)
else write(b)
end.