Помогите составить блок схему!

Question

Program day7;

Const mas:array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

var a,b,s,i : integer;

begin

repeat

writeln('введите месяц 1-12');

readln(b);

until b in [1..12];

repeat

writeln('введите день 1-',mas[b]);

Readln(a);

until a<=mas[b];

for i:=1 to b-1 do

s:=s+mas[i];

s:=s+a;

if s mod 7 = 0 then writeln('вторник') else

if s mod 7 = 1 then writeln('среда') else

if s mod 7 = 2 then writeln('четверг') else

if s mod 7 = 3 then writeln('пятница') else

if s mod 7 = 4 then writeln('суббота') else

if s mod 7 = 5 then writeln('воскресенье') else

if s mod 7 = 6 then writeln('понедельник');

readln;

end.

Сергей Азаров · Accepted Answer

1. лучше применить CASE, а схему могу по Гост 19.701-90
rogram day7;
 uses crt;
Const mas:array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

var a,b,s,i : integer;

begin

repeat

writeln('ââåäèòå ìåñÿö 1-12');

readln(b);

until b in [1..12];

repeat

writeln('ââåäèòå äåíü 1-',mas[b]);

Readln(a);

until a<=mas[b];

for i:=1 to b-1 do

s:=s+mas[i];

s:=s+a;
case s mod 7 of

0: writeln('âòîðíèê');

1: writeln('ñðåäà');

2: writeln('÷åòâåðã');

3: writeln('ïÿòíèöà');

4: writeln('ñóááîòà');

5: writeln('âîñêðåñåíüå');

6: writeln('ïîíåäåëüíèê');
 end;
readln;

end.

Анна · Answer

ERROR