Вычтех_6 / 6_2

Program laba6_2;
Uses
crt;
Const
P1='|---------|-------------|';
P2='| ostatok| den nedeli|';
p3='ponedelnik';
p4='vtornik';
p5='sreda';
p6='chetverg';
p7='piatnica';
p8='subbota';
p9='voskresenie';
Var
a, b, z, x, c, d : real;
e : integer;
Begin
clrscr;
Writeln('x, a, b');
Readln (x, a, b);
Writeln(P1); Writeln(P2); Writeln(P1);
Z:=Ln (abs(sqr (x)+a*b));
c:=int (z);
d:=c/7;
e:=round ((frac (d))*7);
If e=0 then
Writeln('| ',e,'| ',p3:11,'|')
else
If e=1 then
Writeln('| ',e,'| ',p4:11,'|')
else
If e=2 then
Writeln('| ',e,'| ',p5:11,'|')
else
If e=3 then
Writeln('| ',e,'| ',p6:11,'|')
else
If e=4 then
Writeln('| ',e,'| ',p7:11,'|')
else
If e=5 then
Writeln('| ',e,'| ',p8:11,'|')
else
If e=6 then
Writeln('| ',e,'| ',p9:11,'|');
Writeln(P1);
Readln;
End.