Помогите решить задачки (VBA)1. Написать программку вычисления стоимости поездки на

Program aaa;
var
  s, b, l, c: real;
begin
  writeln('введите s, b, l');
  readln(s, b, l);
  c := b / 100 * s * 2 * l;
  writeln('стоимость поездки: ', c)
end.

program aaa;
Написать программку пересчета веса из фунтов (f) в килограммы (kg)
(1 фунт равен 409,5 г). 
var
  f,kg: real;
begin
  writeln('введите f');
  readln(f);
  kg:=f*409.5/1000;
  writeln(f,' фунтов = ', kg:8:3,' килограмм')
end.

program aaa;
Написать программу Конвертер величин: 
с клавиатуры вводиться вес инфы в байтах (b). 
На выходе получаем перевод величины в: колочены (bi) , кб (kb),
Мегабайты (mb), гб (gb).
1байт = 8 бит
1Кб (кб) = 1024 б
1Мб (мегабайт) = 1024 Кб
1Гб (гб) = 1024 Мб
1Тб (терабайт) = 1024 Гб 
var
  b,bi,kb: real; mb,gb,tb: decimal;
begin
  writeln('введите b');
  readln(b);
  bi:=b*8;
  kb:=b/1024;
  mb:=kb/1024;
  gb:=mb/1024;
  tb:=gb/1024;
  writeln(b,' б = ', bi,' бит');
  writeln(b,' б = ', kb,' кб');
  writeln(b,' б = ', mb,' мб');
  writeln(b,' б = ', gb,' гб');
  writeln(b,' б = ', tb,' терабайт')
end.
//формат вывода (к-во символов ...) обусловьте сами