Хранить записанные данные и предоставлять их для чтения.
Количество символов опр. так: 2^3=8
Program z1;
var n:integer;
i:integer;
r:integer;
begin
writeln('Введите количество желающих');
readln(n);
i:=0;
r:=0;
while(n>0) do
begin
writeln('Введите рост ученика : ');
readln(r);
if(r>170) then i:=i+1;
n:=n-1;
end;
writeln(i);
end.
LET X = 0.2BEGINFOR Z = 1 TO Z = 3Z = Z+1y=1,5*a*xcos(x)X=X+0.2
END