Составьте программу, по которой будет реализованследующий сценарий: компьютер запрашивает номер дня недели, после ввода компьютер сообщает название этого дня. например, если ввели 1, то выведется фраза" это понедельник" ит.д.

var a: integer; beginwriteln('days of week'); readln(a); case a of 1: write('monday'); 2: write('tuesday'); 3: write('wednesday'); 4: write('thursday'); 5: write('friday'); 6: write('saturday'); 7: write('sunday'); end; end.

Program cgt; var x1,y1,x2,a,y2,b,c,x3,y3: real; procedure ioi(x1,y1,x2,y2: real; var a: real); begin a: =sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); end; begin read(x1,x2,y1,y2,x3,y3); ioi(x1,y1,x2,y2,a); ioi(x1,y1,x3,y3,b); ioi(x3,y3,x2,y2,c); if(a> =b)and(a> =c)then writeln('первая и вторая точка ',a) else if(b> =a)and(b> =c)then writeln('первая и третая точка ',b) else if(c> =b)and(c> =a)then writeln('третая и вторая точка ',c); end.2)program cgt; var z,x,y: real; function ioi(x: real): real; beginif(x=0)then ioi: =0; if(x< 0)then ioi: =-1; if(x> 0)then ioi: =1; end; beginread(x,y); z: =(ioi(x)+ioi(y))*ioi(x+y); writeln(z); end.

1,2,3,4) program gt; var a: array[1..100]of integer; n,i,w,r,q,max: integer; begin read(n); w: =0; r: =0; q: =0; for i: =1 to n do begin read(a[i]); if(a[i]< 0)then w: =w+1; if(a[i]> 0)then r: =r+1; if(a[i]=a[1])then q: =q+1; end; max: =a[1]; for i: =2 to n do if(a[i]> max)then max: =a[i]; writeln(' количество отрицательных элементов в массиве=',w); writeln(' количество положительных элементов в массиве=',r); writeln(' количество элементов в массиве равных a[1]=',q); writeln(' максимальный элемент массива=',max); end.