Как называется служебная программа для сжатия информации?

Архиватор или упаковщик файлов

Var i,x,y,answer,input,k:Integer;

begin
Writeln('*TEST*');
randomize;
answer:=10;
k:=0;
for i:=1 to answer do
 begin
 x:=Random(9)+1;
 y:=Random(9)+1;
 Write(x,' * ',y,' = '); 
 Readln(input);
 if input=x*y then
  begin
  k:=k+1; 
  writeln('RIGHT!');
  end
 else writeln('WRONG! ',x,' * ',y,' = ',x*y);
end;

Writeln('Correct answers - ',k);
case answer of
10:Writeln('Excellent!');
9,8:Writeln('Good!');
6,7:Writeln('OK!');
0..5:Writeln('Bad!');
end;
end.

Пример:
*TEST*
2 * 4 = 8
RIGHT!
7 * 9 = 7
WRONG! 7 * 9 = 63
4 * 4 = 16
RIGHT!
1 * 2 = 2
RIGHT!
4 * 1 = 4
RIGHT!
9 * 7 = 63
RIGHT!
9 * 8 = 72
RIGHT!
3 * 1 = 3
RIGHT!
9 * 4 = 36
RIGHT!
6 * 4 = 24
RIGHT!
Correct answers - 9
Excellent!

1)
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты   Кг');
for i:=1 to round((fk-f0)/h)+1 do
 begin
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
 end;
end.

2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты   Кг');
while f<fk do
 begin
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
 end;
end.

3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты   Кг');
repeat
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.

Результат:
Фунты   Кг
 1.0  0.400
 1.5  0.600
 2.0  0.800
 2.5  1.000
...
 9.0  3.600
 9.5  3.800
10.0  4.000