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

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

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.

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