Задание

VAR S,K: INTEGER;

BEGIN

S:=100;

FOR K:=1 TO 9 DO

S:=S-5;

WRITELN (S)

END.