Кто помнит Pascal?

Тут такое дело, попросила меня знакомая написать несколько программок (контрольная в институте) на "паскале". Я его уже давненько не видел. но стало интересно и я согласился. В итоге преподаватель, проверяя мой код, вздыхала и называла меня дураком (естессно, заочно, сдавала к/р знакомая), хотя зачет поставила. Мне дико интересно, я действительно всё забыл или на меня наговаривают? Кто в теме, напишите свое мнение о коде.

Составить программу для вычисления

Uses crt, math;
Var
f, x, y, z: real;
Begin
clrscr;
repeat
write('Введите x: ');readln(x);
write('Введите y: ');readln(y);
write('Введите z: ');readln(z);
until (cos(y*z)<>0) and (sin(Pi/3+y)<>0);
if cos(x)<tan(y*z) then
f:=exp(sqr(sin(x*y))+z)
else
f:=cotan(Pi/3+y);
writeln;
writeln('f=',f);
readln;
End.

Разработать, ввести в ЭВМ и отладить программу для расчёта полного сопротивления участка электрической цепи, состоящего из m известных сопротивлений, соединённых параллельно.


Uses crt;
Var
danet: byte;
m, i: longword;
res, res_poln, znam: real;
Begin
clrscr;
repeat
writeln('Сопротивления одинаковы?');
writeln('1) Да');
writeln('2) Нет');
readln(danet);
writeln;
until (danet=1) or (danet=2);
if danet=1 then
begin
write('Укажите номинал сопротивления (Ом): ');readln(res);
write('Укажите количество сопротивлений: ');readln(m);
writeln;
res_poln:=res/m;
writeln('Полное сопротивление равно ',res_poln,' Ом');
end;
if danet=2 then
begin
znam:=0;
write('Укажите количество сопротивлений: ');readln(m);
writeln;
for i:=1 to m do
begin
write('Укажите номинал ',i,'-го сопротивления (Ом): ');readln(res);
znam:=znam+1/res;
end;
res_poln:=1/znam;
writeln;
writeln('Полное сопротивление равно ',res_poln,' Ом');
end;
writeln;
writeln('<Для выхода нажмите "Enter">');
readln;
End.