МНЕ, МУДРЫЙ ЁЖ! Написать программу на языке Паскаль: найти все целые двузначные числа, кратные 9 и заканчиваются цифрой 3

использовать Рисователь

алг

нач

новый лист(600, 400, белый)

в точку (250,350)

линия в точку (300,75)

линия в точку (350,350)

линия в точку (250,350)

кисть(красный)

окружность(300, 75, 20)

залить(300,250)

в точку (200,350)

линия в точку (100,100)

линия в точку (265,265)

линия в точку (250,350)

линия в точку (200,350)

кисть(синий)

окружность(100, 100, 20)

залить(200,300)

в точку (400,350)

линия в точку (500,100)

линия в точку (335,265)

линия в точку (350,350)

линия в точку (400,350)

кисть(зеленый)

окружность(500, 100, 20)

залить(400,300)

кон

Объяснение:

Смотри картинку

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
type
    s_b = record
        s_d: array[1..31, 0..9]of integer;
        s_o: array [0..9] of string;
        d_m: array [1..31] of byte;
    end;

var
    r, d: s_b;

begin
    r.s_o[0] := 'еда';
    r.s_o[1] := 'zilie';
    r.s_o[2] := 'oby4';
    d.s_o[1] := 'myz';
    d.s_o[2] := 'zina';
    for var a := 1 to 31 do
        for var b := 0 to 9 do
        begin
            r.s_d[a, b] := 0;
            r.d_m[a] := a;
            d.s_d[a, b] := 0;
            d.d_m[a] := a;
        end;
    
    Println(r);
    Println(d);
end.

покороче, убрано лишнее