Вычисления

Задача:

Даны K,L,P. Вычислить Z=корень квадратный из (L-P2 )/L*P; и S=sinZ+K2/cosK

Код:


program klp;
var k,l,p: integer;
    s,z: real;
Begin
repeat
Write('Введите k,p,l: ');
Readln(k,p,l);
until (p*l <> 0) and ((l- sqr(p))/(l*p) > 0); {чтобы не было деления на 0 и}
                                         {подкоренное выражение не меньше 0}
z:= sqrt( (l- sqr(p))/(l*p) );
s:= sin(z) + sqr(k)/cos(k);

Writeln('z= ',z:6:6);
Writeln('s= ',s:6:6);

Readln;
End.