Построить блок схему по информатике ​

Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:

uses  GraphABC;
var  x0, y0, x1, y1: integer;

begin   
   SetWindowSize(400, 400);//устанавливаем размер окна 
   x0 := WindowWidth;//ширина окна 
   y0 := WindowHeight;//высота окна   

   SetFontColor(clRed);//Устанавливаем цвет текста 
   TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу  
  
   x1 := WindowWidth div 2; //половина ширины окна 
   y1 := WindowHeight div 2;//половина высоты окна   

  SetFontColor(clBlue); 
  TextOut(x1, y1, 'Сергей');//Надпись посередине   

  SetFontColor(clYellow); 
  TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу  

  SetFontColor(clPurple); 
  TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу   

  SetFontColor(clGreen); 
  TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.

Программа была написана  в проверьте, работает ли она в вашем Pascal.

#include <iostream>

#include <vector>

#include <cmath>

using namespace std;

struct river{

   string name;

   double length;

   double depth;

   bool ships;

};

signed main(){

   int n;

   cin >> n;

   river a[n];

   for(int i = 0; i < n; i++)

       cin >> a[i].name >> a[i].length >> a[i].depth >> a[i].ships;

   vector<river> ans;

   for(auto i: a)

       if(i.length > 2 && i.ships)

           ans.push_back(i);

   for(auto i: ans){

       cout << "name: " << i.name << "\n";

       cout << "length: " << i.length << "\n";

       cout << "depth: " << i.depth << "\n";

       cout << "ships?: Yes";

   }

}