Если фразу "Практическая работа номер 1" нужно было перевести в двоичный код, то вот: 1101000010011111110100011000000011010000101100001101000010111010110100011000001011010000101110001101000110000111110100001011010111010001100000011101000010111010110100001011000011010001100011110010000011010001100000001101000010110000110100001011000111010000101111101101000110000010110100001011000000100000110100001011110111010000101111101101000010111100110100001011010111010001100000000010000000110001 Количество цифр: 400
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
Execute(filename: string) запускает программу с именем filename.
А чтобы она в полноэкранном режиме открылась, необходимо поменять свойства этого файла, если там такового не будет, то никак.