program ExecDemo;
{$M 8192,0,0}
uses Dos;
var
tip, otv: integer;
begin
writeln(' **********? WertPaul Product ?**********');
writeln('Утилита для форматирования диска А для Windows.');
writeln('Тип форматирования (1-быстрое, 2-полное):');
case tip of
1: begin
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C ' + 'format a: /q');
SwapVectors;
if DosError <> 0 then
WriteLn('Ошибка!');
WriteLn;
readln;
end;
2: begin
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C ' + 'format a:');
SwapVectors;
if DosError <> 0 then
WriteLn('Ошибка!');
WriteLn;
readln;
end;
end;
end.