как вариант:
var
a, b, h : integer;
begin
a := readInteger('введите a = ');
b := readInteger('введите b = ');
h := readInteger('введите h = ');
writeln('площадь поверхности стен равна ', 2*a*h+2*b*h);
end.
Переведём число в 2 СС. нацело оно не переведется, поэтому переводим до стольки знаков после запятой, чтобы их общее кол-во вместе с целой частью было =24;
0,002489 в 10 СС= 0,00000000101000110001111 в 2 СС
р=1
Мр=1000001
1100|0001|0000|0000|0101|0001|1000|1111
C 1 0 0 5 1 8 F
<span>Ответ:C100518F</span>
Жмешь на правую кнопку мыши (на папку) затем свойства и там написано : Размер папки
var
V: Real;
begin
Write ('Введите сумму вклада: ');
Readln (V);
if V = 200000 then
WriteLn ('Процент дохода равен 13.5% в год')
else if V >= 350000 then
WriteLn ('Процент дохода равен 14.2% в год')
else
WriteLn ('Процент дохода в год не определен');
end;
// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.