program funtik;
        uses new_crt;
        var  funti, rezult:real;

begin
     TextBackGround (Magenta);   (*цвет фона*)
     TextColor (Black);
     clrscr;
writeln ('Программа создана Ириной Веси');
writeln ('Пересчет веса из фунты в килограммы.');
writeln ('Введите вес в фунтах и нажмите Enter');
readln (funti);
rezult:=funti*409.5/1000;
      writeln (funti:8:2, ' фунт(а/ов) - это ', rezult:8:2, ' кг');
writeln ('Нажмите Enter для выхода из программы');
readln;
end.