Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
<span>Программа восстанавливает данные жестких и внешних дисков, а также любых других устройств под управлением файловых систем FAT, NTFS. Утилита объединяет комплекс алгоритмов, восстанавливающих имя, атрибуты, содержимое файла и оригинальную структуру каталогов диска.</span><span>Кроме существующих, утилита находит все ранее созданные разделы диска и выводит их пользователю для дальнейшего анализа и поиска удаленной информации. Поддерживая FAT16, FAT32 и NTFS, используемые в Windows, программа исправляет любые ошибки логической структуры жесткого диска и возвращает его содержимое быстрее, чем вы досчитаете до трех.</span>