Нарисуйте следующее действие поворота фигуры​.это типо разворачивание объектов в

Uses crt;
var k,n:integer;
begin
clrscr;
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) then
begin
n:=k mod 7;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг);
5: writeln ('пятница');
6: writeln ('суббота');
0: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.

uses crt;
var k,n,d:integer;
begin
clrscr;
writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)');
Readln (d);
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) and (d>=1) and (d<8) then
begin
n:=k mod 7 +d-1;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
0,7: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.

1.
Не указано, сколько бит приходится на один символ. Предположим, что 1 символ занимает 8 бит или один байт.
v = 1200 бит/с
информационная ёмкость сообщения
i = 3070*8 = 24560 бит
Время передачи
t = i/v = 24560/1200 = 20,47 секунд
2.
За 1 секунду передаётся 1200 бит или 150 символов, значит, на один символ приходится
1200/150 = 8 бит
При работе модема со скоростью 2400 бит/с за 1 секунду будет передано 2400/8 = 300 символов
3.
Снова не указана битность символов. Ну, опять 8 бит на символ.
9600/8 = 1200 символов/с