Ну, если уж нужна программа на русском (как вы говорите), то вот она (это для системы Кумир):
алг
нач
вещ д, ш, в, пп, пер, пс, ок, по;
вывод "Расчёт параметров комнаты:", нс
вывод "Введите длину комнаты: д= "
ввод д
вывод "Введите ширину комнаты: ш= "
ввод ш
вывод "Введите высоту комнаты: в= "
ввод в
пп := д*ш
пер := (д+ш)*2
пс := пер*в
ок := пп*в
по := пп*2+пс
вывод нс, "Площадь пола= ", пп , нс
вывод "Периметр комнаты= ", пер , нс
вывод "Площадь стен= ", пс , нс
вывод "Объём комнаты= ", ок , нс
вывод "Площадь общей поверхности комнаты= ", по , нс
кон
Скрин внизу- это то, что программа выводит на экран.
s:string;
i:integer;
r:boolean;
d,d1:set of char;
begin
d:=['0'..'9','А','B'..'E'];
d1:=['1','3','5','7','9','B','D'];
Write('Введите строку: '); Readln(s);
r:=True;
for i:=1 to Length(s) do begin
if s[i]='.' then break;
if not (s[i] in d) then begin r:=False; break end
end;
if r then r:=(s[i-1] in d1);
if r then Writeln('YES')
else Writeln('NO')
end.