для разработки объемного образа (изображения), деталей объекта
Var a,b:integer;
begin
while a*4<65 do
begin
writeln('кролик: ',a,' гусь: ',(64-a*4) div 2);
a:=a+1;
end;
end.
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
нуу как то так...
uses GraphABC;
var x1,x2,y1,y2: integer;
begin
setwindowsize(600, 400);
for var i:=1 to 20 do
begin
SetPenColor(clrandom);
Setbrushcolor(clrandom);
x1:=Random(128);
y1:=random(265);
x2:=random(449);
y2:=Random(365);
line(x1,y1,x2,y2);
end;
end.