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.