Петя написал слово кит в текставом редакторе, выделил его и последовательно нажал один раз на кнопку , , полужирный", два раза на кнопку , , курсив"и четыре раза на кнопку , , подчеркнутый".в результате получилось а)кит б)кит в)кит г)кит

Ито и то и то будет потому что нажав полужирный он сделается жирным а нажав курсив наклонится а подчеркнутый слово кит будет подчеркнутым полужирным и курсив

program figyri;

uses crt,graphabc;

var xc,yc: integer;

    m: integer;

begin

xc: =windowwidth div 2;

yc: =windowheight div 2;

repeat

write ('введите число');

read (m);

if m> 2 then

    begin

      setpencolor(clgreen);

      rectangle(xc-100,yc-100,xc+100,yc+100);

      floodfill(xc,yc,clgreen);

      readkey;

    end;

if m< 2 then      

    begin

      setpencolor(clred);

      line (xc-100,yc+50,xc+100,yc+50);

      line (xc+100,yc+50,xc,yc-100);

      line(xc,yc-100,xc-100,yc+50);

      floodfill(xc,yc,clred);

      readkey;

    end;

if m mod 2=0 then

    begin

      setpencolor(clblue);

      circle (xc,yc,100);

      floodfill(xc,yc,clblue);

      readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д

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

n, m, i, j, mini, minj, maxi, maxj : integer;

 

begin

write('n, m -> ');

readln(n, m); {считываем размер матрицы}

write('input matrix -> ');

for i: =1 to n do for j: =1 to m do

begin

  write('a[',i,',',j,'] -> ');

  readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini: =1;

minj: =1;

maxi: =2;

maxj: =2;

for i: =1 to n do for j: =1 to m do if a[i,j] > a[maxi, maxj] then

begin

  maxi : = i;

  maxj : = j;

end else if a[i, j] < a[mini, minj] then

begin

  mini : = i;

  minj : = j;

end;

writeln('max = a[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('min = a[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end.