Нина и Дима поспорили, кто из них быстрее отмерит в вёдрах и перельёт в бочку ровно 6 литров воды. У Димы есть вёдра на 4 л и на 9 л, а у Нины - вёдра на 4 литра и на 5 литров. Переливают они примерно с одинаковой скоростью. Как думаешь, кто из них победит

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.

перевозим сначала козу 

потом капусту и овцу перевозим назад к волку 

берём волка 

потом в онце перевозим козу

var x, y: integer;

beginwriteln('введите два числа'); readln(x,y);  

while (x< > 0) and (y< > 0) do beginif x> y then x: =x mod yelse y: =y mod x; end; writeln('нод=', x+y);   end.