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 строке, чтобы ввод осуществлялся в той же строке
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 строке, чтобы ввод осуществлялся в той же строке