Написать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2.

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

в древней индии, до изобретения китайцами бумаги, которую потом экспортировали в индию, писали либо на камнях, либо на пальмовых листьях сажей или другими красителями, разведенными на козьем молоке (казеин).