Что будет выведено на экран после выполнения фрагмента программы: begin
x:=0;
if x<>5 then y:=10 else y:=0;
writeln (y);
end.​

14                                                                                                                       

20 - 25 = -5

-5 в десятичной системе

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет