Капюшон!!! в листке я показала как разобраться
Program one;
var x, y: real;
begin write('Введите число x: '); read(x); y := x * 1 * x * 2 + x * 1 * x * 3 + x * 2 * x * 3; write('Ответ: ', y);end.
К системному программному обеспечению
CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
2) Решил бы еще, но замучаюсь всё это в пэйнте рисовать:)