Вычтех_6 / 6_2_4

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, i, d : real;
k : integer;
Begin
clrscr;
Writeln('x, a, b');
Readln (x, a, b);
Writeln(P1); Writeln(P2); Writeln(P1);
Z:=Ln (abs(sqr (x)+a*b));
i:=int (z);
d:=i/7;
k:=round ((frac (d))*7);
Case k of
0..0 : Writeln('| ',k,'| ',p3:11,'|');
1..1 : Writeln('| ',k,'| ',p4:11,'|');
2..2 : Writeln('| ',k,'| ',p5:11,'|');
3..3 : Writeln('| ',k,'| ',p6:11,'|');
4..4 : Writeln('| ',k,'| ',p7:11,'|');
5..5 : Writeln('| ',k,'| ',p8:11,'|');
6..6 : Writeln('| ',k,'| ',p9:11,'|');
End;
Writeln(P1);
Readln;
End.