Страница 156 §3.4 номер 14, ГДЗ по информатике за 8 класс к учебнику Босовой

program z14;

var

  cislo:integer;

  st:string;

  begin

    write('Введи cislo>');

    readln(cislo);

    cislo:=cislo mod 7;

    if cislo=3 then st:='Понедельник';

    if cislo=4 then st:='Вторник';

    if cislo=5 then st:='Среда';

    if cislo=6 then st:='Четверг';

    if cislo=0 then st:='Пятница';

    if cislo=1 then st:='Суббота';

    if cislo=2 then st:='Воскресенье';

    writeln(st);

  end.