Объяснить код

@Travelmate · Регистрация: 15.10.2012

Author24 — интернет-сервис помощи студентам

PHP

program l1_z6;
 
{$APPTYPE CONSOLE}
 
uses
 windows;
 
var
 gg,g,x,c:integer;
begin
 SetConsoleOutputCP(1251);
 SetConsoleCP(1251);
 write('Введите год: ');
 readln(gg);
 repeat
 x:=x+1;
 c:=c+1;
 g:=g+1;
 if c>10 then c:=1;
 if g>12 then g:=1;
 until gg=x;
 write(gg,' год ');
 case c of
 6,7: write('красно');
 8,9: write('желто');
 10,1: write('бело');
 2,3: write('голубо');
 4,5: write('зелено');
 end;
  case g of
  4 : write('й крысы');
  5 : write('го быка');
  6 : write('го тигра');
  7 : write('го зайца');
  8 : write('го дракона');
  9 : write('й змеи');
  10 : write('й лошади');
  11 : write('й овци');
  12 : write('й обезьяны');
  1 : write('й петуха');
  2 : write('й собаки');
  3 : write('й свиньи');
  end;
 readln
end.

В основном все понимаю но объясните все что включёно в повтор repeat, что за x c g, как оно обчистит год

@Travelmate · 14.11.2015, 21:36 **[ТС]**

ап тему

@Travelmate 11 / 11 / 7 Регистрация: 15.10.2012 Сообщений: 83
	14.11.2015, 21:36 [ТС]	2
	ап тему 0