Дан фрагмент электронной таблицы: Определите наибольшее целое число, которое может
быть записано в ячейке A1, чтобы построенная после
выполнения вычислений диаграмма по значениям
диапазона ячеек A2:D2 соответствовала рисунку?

А1 : =D1+S1

;><;><;>;><;>;>;>;>;>;>;>;>;>;>;>

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении