Uses graphabc;
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
var r:=ReadInteger('R=');
var h:=ReadInteger('h=');
pen.Width := 4;
DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.
Алгоритм
<span>1. Взять чайник.
</span><span>2.налить в него холодной воды.Если там есть вода вылить её.
</span><span>3.поставить на плиту.
</span><span>4.включить плиту.
</span><span>5.снять чайник с огня, когда вода закипит.
</span><span>6.Взять кружку для чая.
</span><span>7. положить в кружку заварки.
</span>8. налить кяпяток из чайника.
<span>9. когда чай заварится, вытащить пакетик.</span>
Program p1;
var a,b:integer;
i,n,x:integer;
begin
Writeln ('Введите к-во');
readln (n);
x:=0;
for i:=1 to n do
begin
Writeln ('Введите число:');
readln (a);
if a>=0 then
begin
if x=0 then b:=a;
if (x>0) and (a<b) then b:=a;
x:=x+1;
end;
end;
Writeln('Наименьшего положительного число: ',b);
<span>end.</span>