Ответ:
program calc; var s:integer; begin s:=0; //начальное значение суммы For i:integer:=1 to 50 do if (i mod 5 = 0) or (i mod 7 = 0) then // если при делении i нацело на 5 или 7 остаток равен нулю begin // то печатать число і if i <50 then write(i, \’ + \’) else write(i) ; // число і вывести со знаком \»+\», //если оно меньше 50, иначе печатать только число (последнее в//сумме перед знаком равенстваs:= s + i;// сумму чисел s end;writeln(\’ = \’,s); //вывести знак равенства и сумму чиселend.