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

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.

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo 

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.