Var n:integer; begin writeln('Введите номер дня недели от 1 до 7'); readln(n); if n=1 then writeln('Понедельник'); if n=2 then writeln('Вторник'); if n=3 then writeln('Среда'); if n=4 then writeln('Четверг'); if n=5 then writeln('Пятница'); if n=6 then writeln('Суббота'); if n=7 then writeln('Воскресенье'); end.
Самая простая программа, не затрагивает более сложные разделы изучения языка pascal.
begin
writeln('Введите номер дня недели от 1 до 7');
readln(n);
if n=1 then writeln('Понедельник');
if n=2 then writeln('Вторник');
if n=3 then writeln('Среда');
if n=4 then writeln('Четверг');
if n=5 then writeln('Пятница');
if n=6 then writeln('Суббота');
if n=7 then writeln('Воскресенье');
end.
Самая простая программа, не затрагивает более сложные разделы изучения языка pascal.