В электронной таблице выделен диапазон из 21 ячеек, расположенный в столбцах F, G и H. Правый нижний угол диапазона находится в ячейке H8. Запишите адрес диапазона.

= F1 : H7

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end.