Составьте программу рисования ряда одинаковых цветков с использованием процедуры Flower

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление

смотри схему                                                  

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.

a-возраст cаши

b– возраст маши

program r;

var a,b: integer;

begin

readln(a,b);

if a=b then writeln («ровесники»)else writeln( «неровесники»)

end.