Question

 СРОЧНО!!!!!Что не так? Пишет ошибка "BEGIN"

rogram pr;
var a,b,с,:integer;
begin
writeln('Введите три целых числа');
read(a,b,c);
s:=(sqrt((2*a)+(3*(b*b*b)))/(a-c);
k:=(2*(s*s*s*s))-(3*(sqrt(abs(a*b*c))));
y:=(6*s)+(2*k)-((s*s*s*s)/(3*a*b*c));
writeln ('Получилось число',y);
end.

Answer 1

не хватает четвертой скобки
s:=..)))")"...

Answer 2

Program pr; - пропущена буква Р
var a,b,с,:integer; - лишняя запятая
begin
writeln('Введите три целых числа');
read(a,b,c); - ругается на переменную "с". Возможно здесь она написана на русской раскладке.
s:=(sqrt((2*a)+(3*(b*b*b))))/(a-c); - пропущена закрывающая скобка +
- переменная не описана
k:=(2*(s*s*s*s))-(3*(sqrt(abs(a*b*c)))); - переменная не описана
y:=(6*s)+(2*k)-((s*s*s*s)/(3*a*b*c));
- переменная не описана
writeln ('Получилось число',y);
end.

После исправления всех указанных ошибок программа начинает работать.