Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Решение пожалуйста.
Var s, k: integer;
Begin
s := 50;
for k := 1 to 9 do
s := s - 3;
write (s);
End.