Вот, например, на Паскале (Pascal):
Program P1;
uses crt;
var a, b: real;
begin
clrscr;
writeln ('Введите с клавиатуры значения переменных a и b (только числа). После ввода значения переменной нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');
write ('a=');
readln (a);
if a=0 then writeln ('Ошибка: происходит деление на 0.') else begin
write ('b=');
readln (b);
if b=0 then writeln ('Ошибка: происходит деление на 0.') else writeln ('Ответ: SS=', (a+b+a)/(a*b*b));
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.