Вот, например, на Паскале (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.  
			 
						
 
						 
						