Определите что будет напечатанно в результате выполнения следущего алгоритма, записанного на Паскале :
Var s:integer; k:real ;
Begin
S:=377 ;
If s mod 10 =7 then
Begin
S :=s+3;
K :=s/10
End
Else k:=1;
Writeln(k)
End.