Запишите на языке паскаль программу, которая по номеру дня недели будет выводить его название.

var x: integer; begin  write('введите номер дня недели: '); readln(x); if (x = 1)then writeln('понедельник'); if (x = 2)then writeln('вторник'); if (x = 3)then writeln('среда'); if (x = 4)then writeln('четверг'); if (x = 5)then writeln('пятница'); if (x = 6)then writeln('субота'); if (x = 7)then writeln('воскресенье'); end.

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }