Var a:integer; begin write('введите число месяца '); readln(a); if (a mod 7 = 1) then write('вт'); if (a mod 7 = 2) then write('ср'); if (a mod 7 = 3) then write('чт'); if (a mod 7 = 4) then write('пт'); if (a mod 7 = 5) then write('сб'); if (a mod 7 = 6) then write('вс'); if (a mod 7 = 0) then write('пн'); end.
begin
write('введите число месяца ');
readln(a);
if (a mod 7 = 1) then write('вт');
if (a mod 7 = 2) then write('ср');
if (a mod 7 = 3) then write('чт');
if (a mod 7 = 4) then write('пт');
if (a mod 7 = 5) then write('сб');
if (a mod 7 = 6) then write('вс');
if (a mod 7 = 0) then write('пн');
end.