Напишите названия вирусных программ

черви — worm

вирусы-маскировщики — rootkit

вирусы – шпионы — spyware

зомби — zombie

рекламные вирусы — adware

вирусы – блокировщики — winlock

var a,b,c: integer;

begin

write('введите пятизначное число: ');

readln(c);

if (c > = 10000) and (c < = 99999) then

begin

a: =c;

while a> 0 do

begin

b: =b*10+a mod 10;

a: =a div 10

end;

writeln ('вы ввели число: ',c);

write ('переворот числа: ',b)

end

else

begin

writeln('число не пятизначное');

writeln ('вы ввели число: ',c)

end

end.

или всё через if:

var a,b,c: integer;

begin

write('введите пятизначное число: ');

readln(c);

if (c > = 10000) and (c < = 99999) then

begin

a: =c;

if a> 0 then

begin

b: =b*10+a mod 10;

a: =a div 10

end;

if a> 0 then

begin

b: =b*10+a mod 10;

a: =a div 10

end;

if a> 0 then

begin

b: =b*10+a mod 10;

a: =a div 10

end;

if a> 0 then

begin

b: =b*10+a mod 10;

a: =a div 10

end;

if a> 0 then

begin

b: =b*10+a mod 10;

a: =a div 10

end;

writeln ('вы ввели число: ',c);

write ('переворот числа: ',b)

end

else

begin

writeln('число не пятизначное');

writeln ('вы ввели число: ',c)

end

end.