программа в паскале

[иван77]

помогите пожалуйста написать программу: Составить таблицу стоимости порций сыра весом 50, 100, 150, … 1000 г. Стоимость сыра — вводимая величина.

[VIK_aka_TOR]

var 
i, stoim : integer;
begin
  write('Введите цену за килограмм: ');
  readln(stoim);
  for i:=1 to 20 do
    writeln(i*50:6,' г  - ', stoim/1000 * i*50 ,' р');
end.

[иван77]

помогите написать программу: Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3, 6, 9, 12, …, 24 часа.

[Hacker19_90]

program example;
uses
   crt;
var
    chours, count: integer;
begin
    clrscr;
    ReadLn (chours);
    count = exp(ln(2)*(chours div 3));
    Writeln (count);
    ReadKey;
end.

[VIK_aka_TOR]

var 
i, k : integer;
begin
k:=1;
  for i:=1 to 8 do
    begin
    k:=k*2;
    writeln(i*3:2,' ч  - ',k);
    end;
end.

[иван77]

что то не идет программа

[Hacker19_90]

что то не идет программа

Модуль Telepat подрубите!
Какая программа?
Что значит не идёт?

[иван77]

спасибо большое

[Stilet]

А что выдает? Ошибки? Или просто не показывается на экране?

[Hacker19_90]

хм смешно получилось!

что то не идет программа

Модуль Telepat подрубите!

спасибо большое