Что выведет данный код:
print ( 1, 2, 3, sep = " : " )

ответ: 1:2:3                                                              

ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ ᅠ

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.