[gorro]

Приведствую уважаемые проффессионалы. Я пока совсем новичёк в програмировании.Написал на Турбо Паскале простенькую програмку для подсчёта выработки.
uses crt;
var
d,t,k,m,p,y:real;
begin
clrscr;
write('длинна-');
readln(d);
write('толщина-');
readln(t);
write('кол-во-');
readln(k);
if (t>0)and(t<5) then
begin
m:=d*k*0.208/1000;
p:=d*k*0.17/1000;
y:=d*k*0.134/1000;
end;
if (t>=5)and(t<7.5) then
begin
m:=d*k*0.275/1000;
p:=d*k*0.215/1000;
y:=d*k*0.173/1000;
end;
if t>=7.5 then
begin
m:=d*k*0.552/1000;
p:=d*k*0.468/1000;
y:=d*k*0.386/1000;
end;
writeln('-------------');
writeln('маш-',m:6:2);
writeln('пом-',p:6:2);
writeln('укл-',y:6:2);
readkey
end.
Помогите написать этот алгоритм на Мидлет Паскале.Очень удобно будет иметь такое на мобильном.