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 строке, чтобы ввод осуществлялся в той же строке
var
f, i: integer;
k: real;
begin
for i := 1 to 20 do
writeln(i, ' (фунт) = ', (i * 0.4):1:3, ' (кг)');
end.