pasekLadowania

program pasekLadowania;
uses crt, graph;
var  x,Karta, Tryb : smallint;
const st='d:\bgi';
function obetnij(lancuch:string;aktProc:real):string;
var c : byte;wyn : string;
begin
 wyn:='';
 for c:=1 to 4 do begin
     if lancuch[c]<>'.' then wyn:=wyn+lancuch[c];
 end;if aktProc<10 then wyn:=lancuch[1]+lancuch[2];if aktProc=100 then wyn:=wyn+'0';
 wyn:=wyn+'%';
 obetnij:=wyn;
end;
procedure pasek;
var
proc : real;dx:integer;st : string;bylEnter : byte;
begin
 dx:=0;bylEnter:=0;
 REPEAT
 setlinestyle(1,1,3);setfillstyle(9,blue);
 bar3d((getmaxx-500)div 2,getmaxy div 2,(getmaxx-500)div 2+dx,getmaxy div 2-50,10,true);
 dx:=dx+1;
 proc:=(dx/500*100);
 str(proc,st);
 setlinestyle(0,1,1);bar((getmaxx+4) div 2,getmaxy div 2-25,(getmaxx+55) div 2,getmaxy div 2-17);
 outTextxy((getmaxx-3) div 2,(getmaxy-50) div 2,obetnij(st,proc));
 if keypressed then bylEnter:=1;
UNTIL (dx=500)OR(keypressed);
{if bylEnter=0 then delay(3000);cleardevice;}
end;
begin
Karta:=VGA;
Tryb:=vgahi;
initGraph(Karta, Tryb,st);
pasek;   readkey;
closegraph;
end.