var m:byte;
begin
      write('Число месяца: ');
      readln(m); //Считываем число месяца
      while m>7 do m:=m-7; //Уменьшаем до интервала 1..7
      case m of
      1: writeln('Суббота');
      2: writeln('Воскресенье');
      3: writeln('Понедельник');
      4: writeln('Вторник');
      5: writeln('Среда');
      6: writeln('Четверг');
      7: writeln('Пятница');
      end;
end;

var data:TCorpse;
   r:extended;
begin
   r:=analyse_corpse(data);
   writeln('Этот труп стоит примерно ',r:0:2,' у.е.');
   delete_corpse(data);
end.

var x1,x2,x,a,b,c,d:real;
begin
readln(a); \\значит 1 коэффициент     
readln(b); \\значит 2 коэффициент
readln(c); \\значит 3 коэффициент
if a=0 then \\защита от балбесов
begin
x:=-c/b;
writeln('x = ',x:6:3);
end;
else
begin
d:=b*b-4*a*c; \\дискриминан
if d=0 then
begin
x:=-b/(2*a);
writeln(x:6:3);
end;
if d<0 then writeln('d<0');
if d>0 then
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('x1 = ',x1:6:3);
writeln('x2 = ',x2:6:3);
end;
    end;
    end.

int ar[2];
printf("A = "); scanf("%i", &ar[0]);
printf("B = "); scanf("%i", &ar[1]);
while (int r = ar[0]%ar[1])
  {
   ar[0]=ar[1];
   ar[1]=r;
  }
printf("NOD(A,B) = %i \n", ar[1]);