Нам задали нарисовать в paint рисунок на тему: "с чего начинается родина? "

Родина начинается с отчизны

Var     i,j,k,b: integer;     a: array[1..7,1..7]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 7 do     begin     a[i,j]: =random(10);     write(a[i,j],' ');     end;   writeln;   end; writeln('введите k и b: '); readln(k,b); for j: =1 to 7 do  a[k,j]: =a[k,j]+b; writeln('измененный массив: '); for i: =1 to 7 do   begin   for j: =1 to 7 do write(a[i,j]: 4);   writeln;   end; end.

1)var a: integer; begin writeln('введите число'); readln(a); if (a mod 2=0) then write('чётное ') else write('нечётное '); if (a div 100> =1)then write('трёхзначное число') else if (a div 10> =1)then write('двузначное число') else writeln('однозначное число'); end.2)var a,b,c: real; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if (a< b)and (b< c) then  begin a: =2*a; b: =2*b; c: =2*c; end else  begin a: =(-1)*a; b: =(-1)*b; c: =(-1)*c; end; writeln(a); writeln(b); writeln(c); end. 3)var a,b,c: integer; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if a=b then writeln('3') else if b=c then writeln('1') else writeln('2'); end.