25 игра ,,шифровальщик".выполните действия по следующему плану: 1)на листочке в клетку постройте оси координат и нарисуйте произвольный многоугольник; 2)пронумеруйте его вершины и закодируйте их с координат; 3)задайте порядок соединения вершин; 4)проверьте, не допущена ли вами ошибка при кодировании рисунка; 5)координаты точек и то, в каком порядке их следует соединить, выпишите на отдельный листок; 6)предложите кому-нибудь восстановить ваш рисунок по этому коду; 7)сравните результаты-объясните возможное искажение информации при декодировании.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

var a, b, c: integer;

begin

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.

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