Практические / prakt7 / Кружокпопрограммированию

PROGRAM kryjok;
var sred:integer;
begin
Writeln ('Введите число первой среды: ');
read(sred);
Write('Январь ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>31;
sred:=sred-31;
Writeln;
Write('Февраль ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>29;
sred:=sred-29;
Writeln;
Write('Март ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>31;
sred:=sred-31;
Writeln;
Write('Апрель ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>30;
sred:=sred-30;
Writeln;
Write('Май ');
repeat
Write(sred, ', ');
sred:=sred+7
Until sred>31;
sred:=sred-31;
END.