Дан символ c. вывести два символа, первый из которых предшествует символу c в кодовой таблице, а второй следует за символом c. для решения понадобятся функции для работы с символьным типом данных.

Program q;
    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
    randomize;
    for i:=1 to 7 do begin;
        for k:=1 to 7 do begin;
            a[i,k]:=random(-10,10);
            if a[i,k] mod 2 = 1 then odd+=1;
        end;
    end;
    min7:=a[1,7];
    for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
    for i:=1 to 7 do sum1+=a[i,1];
    for i:=1 to 7 do avg5+=a[5,i];
    avg5/=7;
    for i:=1 to 7 do a[1,i]:=1;
    write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.

uses Graphabc;

begin

SetwindowWidth(600);

setwindowheight(400);

SetPenWidth(2);

setpencolor(clblack);

circle(500,100,50);

floodfill(500,100,clyellow);

line(250,100,300,50);

line(300,50,350,100);

line(350,100,250,100);

floodfill(300,70,clgreen);

line(225,200,300,100);

line(300,100,375,200);

line(375,200,225,200);

floodfill(300,150,clgreen);

line(200,300,300,200);

line(300,200,400,300);

line(400,300,200,300);

floodfill(300,250,clgreen);

rectangle(285,300,315,325);

floodfill(300,310,clbrown);

line(0,300,100,350);

line(100,350,200,325);

line(200,325,400,325);

line(400,325,600,375);

line(600,375,2000,375);

floodfill(50,350,clgreen);

end.