Помоги кто чем может...
Я как-то еще умею пользоваться паскалем, но полный ноль в мидлете
. составил прогу для вычисления дня недели. Пожалуйста напишите как это выглядит в рабочем варианте midletPascal. Заранее спасибо.
function year(n: integer): longint;
var
v: integer;
begin
v := 0;
while (n > 3) do
begin
n := n - 4;
inc(v);
end;
year := v;
end;
function dney(d, m, y: integer): integer;
var
n: integer;
begin
n := (d - 1) + 30 * (m - 1) + (m div 2);
if (m > 2) then
begin
n := n - 1;
end;
if (m > 8 ) then
begin
n := n + (m mod 2);
end;
dney := n;
end;
var
d, m, i, y, s: longint;
w, f: longint;
a: boolean;
begin
write('Введите дату: ');
readln(d, m, y);
s := year(y);
w := s * 366 + (y - s) * 365;
f := dney(d, m, y) + w - 2;
repeat
dec(f, 7);
until (f <= 7);
w := f;
if (w = 1) then begin writeln('Понедельник.'); end;
if (w = 2) then begin writeln('Вторник.'); end;
if (w = 3) then begin writeln('Среда.'); end;
if (w = 4) then begin writeln('Четверг.'); end;
if (w = 5) then begin writeln('Пятница.'); end;
if (w = 6) then begin writeln('Суббота.'); end;
if (w = 7) then begin writeln('Воскресение.'); end;
readln;
end.