Вариант 2
1. дан массив В(3:3) необходимо элементы последней строки обменять значениями с элементами одной из диагоналей, определить сумму элементов первого столбца.
2. дан шар, записать алгоритм нахождения его площади.

НЕОБХОДИМО СОСТАВИТЬ ГРАФИЧЕСКОЕ РЕШЕНИЕ ЗАДАЧ

uses
  GraphABC;

var
  bool: string;
  circle: byte;

begin
  Line(window.Center.X, window.Center.Y, window.Width - 10, window.Center.Y);
  repeat
    circle += 1;
    writeln('Бежим...');
    for i: byte := 0 to 11 do
    begin
      arc(window.Center.X, window.Center.Y, circle * 2 + 20, i * 30, (i + 1) * 30);
      System.Threading.Thread.Sleep(20);
    end;
    writeln('Пробежишь ещё кружочек?');
    repeat
      readln(bool);
      if (bool in ['да', 'нет']) then
        break
      else
        writeln('Что?! Я не расслышал!');
    until (false);
  until (not (bool = 'да'));
  Writeln('Молодец! За столько кругов можно и на марафон... А пробежал ты... ', circle, '!');
end.

Program abc;const a: array [1..5] of array [1..5] of integer = ((1, 15, 24, 8, 17),(9,18,2,11,25),(12,21,10,19,3),(20,4,13,22,6),(23,7,16,5,14));var i, j, x: integer; arr: array [1..12] of integer;begin

for i := 1 to 5 do begin x := 0; for j := 1 to 5 do x := x + a[i][j]; arr[i] := x; end; for i := 1 to 5 do begin x := 0; for j := 1 to 5 do begin
x := x + a[j][i]; end; arr[5+i] := x; end; x := 0; for i := 1 to 5 do begin x := x + a[i][i]; end; arr[11] := x; x := 0; for i := 1 to 5 do begin x := x + a[i][6 - i]; end; arr[12] := x; for i := 1 to 12 do begin if arr[i] <> x then begin writeln('Не магический'); break; end; if i = 12 then writeln('Магический.'); end; end.