Правила форума
GetVerify.PASЯзык:
Русский
English
uses Dos, Crt;
const OffOn : array[Boolean] of String[4] = ('выкл', 'вкл');
var
V : Boolean;
begin
GetVerify(V);
WriteLn('Проверка записи : ', OffOn[V]);
V := not V;
WriteLn('Проверка переключена на ', OffOn[V]);
SetVerify(V);
end.
const OffOn : array[Boolean] of String[4] = ('выкл', 'вкл');
var
V : Boolean;
begin
GetVerify(V);
WriteLn('Проверка записи : ', OffOn[V]);
V := not V;
WriteLn('Проверка переключена на ', OffOn[V]);
SetVerify(V);
end.
::
::
::
