Как нарисовать в "Кумир" рыбку? Исполнитель Чертежник

использовать Чертежник

алг

нач

сместиться в точку (1,3)

опустить перо

сместиться в точку (3,4)

сместиться в точку (5,3)

сместиться в точку (7,4)

сместиться в точку (6,3)

сместиться в точку (7,2)

сместиться в точку (5,3)

сместиться в точку (3,2)

сместиться в точку (1,3)

поднять перо

сместиться в точку (2,2.95)

опустить перо

сместиться в точку (2,3.05)

сместиться в точку (2.05,3.05)

сместиться в точку (2.05,2.95)

сместиться в точку (2,2.95)

поднять перо

сместиться в точку (0,0)

кон

Объяснение:

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

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;