Вот тут есть камни и зачаток рыбки, осталось подобрать координаты и будет на рыбу похоже
uses GraphABC;
const
s = 'Этот рисунок создан с помощью Паскаль АВС';
begin
Window.Clear(clAquamarine);
//камни
Brush.Color := clRed;
Ellipse(100,Window.Height-20,200,Window.Height);
Ellipse(500,Window.Height-60,650,Window.Height);
Brush.Color := clGreen;
Ellipse(300,Window.Height-30,480,Window.Height);
Ellipse(200,Window.Height-40,300,Window.Height);
//рыбка 1
Brush.Color := clBlanchedAlmond;
var FishBody1: array of Point := (new Point(150,150), new Point(50,170), new Point(100,100));
Polygon(FishBody1); //триугольное тело
Pie(160,160,50,50,270); //хвост
Pie(180,180,10,50,270); //плавник
//надпись
Font.Name := 'Colibry';
Font.Size := 14;
Font.Style := fsItalic;
Brush.Color := ARGB(50,255,255,255);
rectangle(Window.Width div 2 - TextWidth(s) div 2, Window.Height - TextHeight(s),
Window.Width div 2 + TextWidth(s) div 2, Window.Height);
textout(Window.Width div 2 - TextWidth(s) div 2, Window.Height - TextHeight(s), s);
end.
Объем файла = 200*600*1 байт = 200*600*8 бит
2 мин = 120 с
Скорость передачи данных = 200*600*8/120 = 8000 бит/с
открой любой файл ворда, и внизу на панели есть такая штука где показывает количество слов и страницы, нажми туда правой кнопкой мыши и выбери "символы с пробелами". Будет как на фото в прикрепленных. А количество информации определишь по формуле, либо напиши в комменты под ответом свое количество знаков, я скину сколько это информации
Например если это число 123456, то 2*4*6=48
