Дано: fori:=20downto3do

i изменяется от
до
с шагом

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.

3*3: (3*3)=1

(3*3-3): 3=2

3*3-(3+3)=3

(3*3+3): 3=4

(3+3): 3+3=5

(3+3-3)+3=6

(3: 3+3)+3=7

3*3-(3: 3)=8

3*3-(3-3)=9

3*3+3: 3=10

чтение из файла обычно пишется 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)

ну в метро, или если ты турист то картой, не?