Игра"шифровальщик". выполните действия по соедующему плану:
1) на листочке в клеточку постройте оси координат и нарисуйте произвольный многоугтльник.
2) прономеруйте его вершины и закадируйте ихс координат
3)задайте порядок соединения вершин

program hungry;

var

 time: real;

begin

 write('Который час? ');

 readln(time);

 if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then

   writeln('У кого-то часы барахлят...')

 else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then

   writeln('Отлично, булочная работает!')

 else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then

   writeln('Можно до хлебного магазина дойти.')

 else if (time >= 8) and (time < 24) then

   writeln('Голод не тетка, придется в супермаркет ехать...')

 else

   writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');

end.

Uses crt;
var x,y:integer;
begin
read(x);
read(y);
if x > 0 and y < 0  then
write(x*y*2);
end.
                                 
                                  число  x  > 0
                              /                          \
                            /                             \
                          /                               \
                       да                               нет
                        /
                       /
               
                     y < 0          \
               /                     нет
              /
            /
          да (вывести удвоенное)