1.запишите правильный вариант фрагмента программы,подчеркните место,в которых допущены ошибки if a > 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.

1) if a > b then begin a:= b ; end else b:=a; 
Вот правильный вариант еnd; был лишний так как еще одного begin не было 
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.
Тут у вас ; с запятой были потеряны после исправления ответ 127