program Project1;
   var x,y:real;
begin
   writeln('vvedite x,y');
   readln(x);
   readln(y);
   if (abs(x)>abs(y)) then x:=x/2;
   writeln('x=',x:5:2);
   readln;
end.

program Project2;
   var x,y:real;
begin
   writeln('vvedite x,y');
   readln(x);
   readln(y);
   if (sqrt(y)<x) then y:=y*5;
   writeln('y=',y:5:2);
   readln;
end.

program Project2;

   var x,y:real;
begin
   writeln('vvedite x');
   readln(x);
   if (x<=-1) then y:=-1
   else if(x<1) then y:=x
   else  y:=1;
   writeln(y:5:2);
   readln;
end.

Program Triangle;

Var
  a, b, c : Real;

{ Сортировка 2-х чисел: по окончании процедуры в переменной a - наименьшее значение, в переменной b - наибольшее }
Procedure Sort (var a, b : Real);
var
  t : Real;

begin
  if a > b then begin
    t := a;
    a := b;
    b := t;
  end;
end;

Begin
  { ввод данных }
  writeln ('Введите стороны треугольника:');
  write ('Сторона a --> '); readln (a);
  write ('Сторона b --> '); readln (b);
  write ('Сторона c --> '); readln (c);

  { сортировка сторон (по окончании сторона a - наименьшая, c - наибольшая }
  Sort (a, b); Sort (a, c); Sort (b, c);

  { проверим существование треугольника }
  if a + b < c then begin
    writeln ('Треугольника с такими сторонами не существует!');
    Halt (1);
  end;

  { определим вид треугольника: если сумма квадратов меньших сторон меньше квадрата большей стороны - треугольник остроугольный, больше - тупоугольный, равна - прямоугольный }
  if sqr (a) + sqr (b) < sqr (c) then
    write ('остроугольный ')
  else if sqr (a) + sqr (b) > sqr (c) then
    write ('тупоугольный ')
  else
    write ('прямоугольный ');

  { определим особенности: если меньшая сторона равна большей - треугольник равносторонний, если равны 2 стороны - равнобедренный, иначе - разносторонний }
  if a = c then
    write ('равносторонний')
  else if ((a = b) or (b = c)) then
    write ('равнобедренный')
  else
    write ('разносторонний');

  writeln (' треугольник');

  Readln;
End.

uses
  Utils;
var
  user,toDay:DateTime;
  {
  DateTime = record
    Day, Month, Year, Hour, Minute, Second, Milliseconds: integer;
    end;
  }
  a:integer;
begin
  toDay:=CurrentDateTime;
  write('Введите год:');readln(user.year);
  write('Введите месяц:');readln(user.month);
  write('Введите день:');readln(user.day);
  a:=toDay.year-user.year;{считаем года}
  {корректируем год}
  if(toDay.Month<user.Month)or(toDay.Month=user.Month)and(toDay.Day<user.Day)then dec(a);
  writeln('Полных лет',a);
end.

var
  m:real;
begin
  repeat
    readln(m);
  until(0<=m)and(m<59);
  while m>6 do m:=m-6;
  if m<=3 then writeln('зеленый') else
    if m<=(3+1)then writeln('желтый') else writeln('красный')
end.

var
 k:integer;
begin
  readln(k);
  write('мы нашли ',k,' гриб');
  case (k mod 10) of
    0,5,6,7,8,9:write('ов');
    2,3,4:write('а')
    end;
  writeln('  в лесу')
end.