Определите что будет выведено ** экран после выполнения следующего алгоритма: Var...

Question

Определите что будет выведено на экран после выполнения следующего алгоритма:
Var s:integer; k:real;
Begin
S:=25;
If s mod 2 <> 0 then
Begin
S:=s-1;
K:=s/2
End
Else k:=s;
Writeln (k)
End

Answer 1

Var s:integer; k:real;
Begin
S:=25;
If s mod 2 <> 0 then
Begin
S:=s-1;
K:=s/2
End
Else k:=s;
Writeln (k)
End.
результат: 12