Какие значения t и k выведутся на экран в результате исполнения следующего фрагмента программы: t:=0; k:=0;

for i:= 2 to 4 do

begin

t:=t+1;

k=k-1:

end;

writeln (t, k);

самое 1 и 3 ведутся рили говорю

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.