// сойдет?
uses graphAbc;
const
d = 40;
w = d*12;
h = d*8;
x0 = d div 2;
y0 = d div 2;
begin
setwindowsize(w,h);
arc(x0+2*d,h-y0,2*d,180,90);
line(x0+2*d,h-y0-2*d,x0+10*d,h-y0-2*d);
rectangle(x0+10*d,h-y0-2*d,x0+11*d,h-y0-2*d-d div 4);
rectangle(x0+3*d,h-y0-2*d,x0+5*d,h-y0-3*d div 2);
rectangle(x0+7*d,h-y0-2*d,x0+9*d,h-y0-3*d div 2);
arc(x0+6*d,h-y0-2*d,4*d,180,0);
circle(x0+8*d,h-y0-4*d,d div 2);
end.
A := 10;
b := 6;
a := a + b; //a=16 , b=6
b := a mod 3; //a=16, b=1
<span>d := a - b; //d=16-1=<u>15</u></span>
Var ar:array[1..12] of integer;
i,min:integer;
begin;
min:=2147483647;
for i:=1 to 12 do
begin;
readln(ar[i]);
if (ar[i]>0) and (ar[i]<min) then
min:=ar[i];
end;
writeln;
writeln('Array:');
for i:=1 to 12 do
write(ar[i]:4);
writeln;
write('Min:',min);
<span>end.</span>
Вообще самое важное правило 2. Удаленное не в корзину не вернешь
3 и 4 тоже полезные правила
Power(10, 4) * alpha + 3.2 * beta
(1 + x / factor(2) + y / factor(3)) / (1 + 2 / (3 + x * y))
function factor(x: longint): longint;
begin
if x <= 1 then factor := 1
else factor := factor(x - 1) * x;
end;