Определите значение переменной S после выполнения программы:
VAR A,S: INTEGER;
BEGIN
S:=0;
FOR A:=1 TO 4 DO S:=S*A;
WRITELN\('S=', S\);
END.