Трасировка 1)PROGRAM PR1a;
VAR
X,Y,Y1,Y2,Y3:REAL;
BEGIN
WRITE (‘Введите X = ‘);
READLN(X);
Y1:=2/5*X+15;
Y2:=SQR(X+1/2)+1/75;
Y3:= 7-X;
IF (X>=-6) AND (X -4) AND (X 3) AND (X<=7) THEN Y:=Y3;
WRITELN(‘ ответ Y = ‘, Y:8:3);
END.

2)PROGRAM PR1b;
VAR
i,m:integer;
S,SR,a:real:
BEGIN
write(‘ Введите m’);
readln(m);
S:=0;
FOR i:=1 to m do
begin
write(‘ Введите ‘,i,’ число’);
readln(a);
S:=S+a:
end;
SR:=S/m;
writeln(‘ответ: SR = ’,SR:8:3);
READLN;
END.