var //это ключевое слово показывает что началось объявление переменных
b, i:integer; //тут показали что переменные b, i типа integer т.е. целые
Summ:real; {тут показали что переменные Summ типа real т.е. дробная в ней будет хранится наша сумма}
begin // это слово показывает на начало выполнения программы
Summ := 0; //присваиваем начальное значение суммы
write('b = '); readln(b); //выводим на экран 'b = ' и считываем b
for i := 1 to b do {повторяем следующую операцию b раз причем каждый раз i будет увеличиваться на 1 изначально i присваивается 1}
Summ := Summ + i * i / 2; {присваиваем сумме ее же значение плюс сразу квадрат переменной i деленный на 2}
writeln('S = ', Summ); //выводим 'S = ' и за ним сразу значение суммы
readln; //ожидаем нажатия клавиши enter
end. //конец выполнения программы
Program primer; //добавили точку с запятой (отделяем операторов друг от друга)
Var a, b, s, p: integer;
Begin //убрали точку с запятой (после begin точка с запятой не ставится)
Write('Введите стороны прямоугольника = ');//добавили скобку и точку с запятой (после оператора write в скобках указывается что выводится на экран)
ReadLn(a,b);
P:=a+b;//добавили двоеточие (оператор присваивания :=)
S:=a*b;//добавили двоеточие, заменили знак × на знак * (звездочку - оператор умножения)
WriteLn('Площадь = ',s);//добавили запятую (при вводе и выводе переменные отделяются запятыми, вывод текста от переменных тоже)
WriteLn('Периметр = ',p);//добавили запятую
End.//добавили точку (окончания программы)
Объяснение:
Поправили ещё кавычки вместо знака ‘ поставила знак '
Заменили Writeln на Write в 4 строке, чтобы ввод осуществлялся в той же строке
