Format

Program Format;
Uses Crt;
Var x:Byte;

BEGIN
    ClrScr;
    WriteLn('Microsoft Windows [Version 6.1.9200]');
    WriteLn('(c) 2012 Microsoft Corporation. Wszelkie prawa zastrzeżone.');
    Writeln('C:\Windows\System32 format C:\');
    For x:=1 to 100 do
    BEGIN
        Gotoxy(1,4);
        WriteLn('Formatowanie dysku C:\', x, '%');
    END;

    While true do
    BEGIN
        ReadLn();
    END;
END.