Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
Основание - 8, т.е. восьмиричная система счисления
Var
a,b,c,d : integer;
<span>Begin </span>
for a:=1 to 4 do
for b:=a+1 to 4 do
for c:=b+1 to 4 do
<span> for d:=c+1 to 4 do </span>
writeln(a:3,b:3,c:3,d:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
<span> for c:=b+1 to 4 do </span>
writeln(a:3,b:3,c:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
writeln(a:3,b:3);
for a:=1 to 4 do
<span> writeln(a:3); </span>
readln;
<span> End.</span>
const
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.<span>
</span>