Из теста по программированию: даны фрагменты программ, нужно написать какой результат выводится на экран 8)сравните две строки: 'belka ' 'bylka ' 'belka ' 'belka ' 'bylka ' 'bylka ' 'bylka ' 'bylk '

program pr;

label cyc;

const

sizex = 4; // количество ячеек в каждой строке

sizey = 4; // количество строк

var

matrix: array[1..sizey, 1..sizex] of integer;

i,k: integer;

begin

writeln('чтение элементов массива');

for i: =1 to sizey do for k: =1 to sizex do readln(matrix[i,k]);

writeln('исходный массив: ');

for i: =1 to sizey do begin

for k: =1 to sizex do begin

  write(matrix[i,k]);

end;

writeln('');

end;

writeln('подходящие строки: ');

for i: =1 to sizey do begin

for k: =2 to sizex do begin

  if matrix[i,k]> =matrix[i,k-1] then goto cyc;

end;

writeln(i);

cyc:

continue;

end;

end.

// f# // 1. [< entrypoint> ] let main argv =     let mutable x = system.console.readline() |> system.double.parse     if x > 0.0         then x < - x+5.0       printf "%f" x     system.console.readkey true |> ignore     0 // 2. // f# [< entrypoint> ] let main argv =     let mutable x = system.console.readline() |> system.double.parse     let mutable y = system.console.readline() |> system.double.parse     if x > y         then x < - x*4.0; y < - y+4.0;         else y < - y*4.0; x < - x+4.0;       printf "x: %f\ny: %f" x y     system.console.readkey true |> ignore     0