Напишите код программы который вычислять площадь и перемитр фигуры Print(Введите координаты точки Т) ​

старше будет девочка потому что там написано втрое

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

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

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

end.

буфер обмена,перетаскивание,сохранение в файл

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.