Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
(* рТПЗТБННБ showmyenv.pas -- ЧЩЧПД ПЛТХЦЕОЙС *)
uses dos;
var
i:integer;
begin
for i:=1 to envcount do
writeln(envstr(i));
end.
uses dos;
var
i:integer;
begin
for i:=1 to envcount do
writeln(envstr(i));
end.
Соседние файлы в папке 5