1. Запишіть у зошиті команду, яка: y а) установить висоту вікна 200 пікселів; б) збільшить висоту вікна на 200 пікселів; в) зменшить ширину вікна на 100 пікселів; г) установить відступ вікна від лівої межі екрана 100 пікселів; д) перемістить вікно на 100 пікселів управо; е) перемістить вікно на 100 пікселів уліво; ж) перемістить вікно на 200 пікселів угору; 3) перемістить вікно на 100 пікселів униз.

а) установить висоту вікна 200 пікселів;

б) збільшить висоту вікна на 200 пікселів;

в) зменшить ширину вікна на 100 пікселів;

г) установить відступ вікна від лівої межі екрана 100 пікселів;

д) перемістить вікно на 100 пікселів управо;

е) перемістить вікно на 100 пікселів уліво;

ж) перемістить вікно на 200 пікселів угору;

3) перемістить вікно на 100 пікселів униз

var i, j, k, p: integer; a, b: array[1..10] of integer;

begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)