1.Запишите верный вариант куска программки,подчеркните место,в которых допущены

1.Запишите верный вариант куска программки,подчеркните место,в которых допущены ошибки
if a gt; b then begin a:= b ; end else b:=a; end;
2. Обусловьте ,что будет напечатано в итоге выполнения последующего алгоритма ,записанного в Паскале
Var s:integer:k:real;
begin
s:=255
if s mod 2=1 then begin s:= s-1 k:= s/2 end
else k:=s ;
writeln(k)
end.