Стекловолокно или стекловолоконная нить
Сохранить файл
Открыть файл
Удалить файл
просмотреть файл , создать файл
Открыть папку , удалить папку , просмотреть папку , создать папку , переименовать папку
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.