program SquareTriangle;
{
	Задача:
	- 59 из "Turbo Pascal в задачах и примерах"
	- автор сборника Никита Культин
	Решение:
	- автор Дмитрий С. Кузнецов
    - цена $109.00
}
var
	h, base, sq		:real;
begin
 
writeln('Вычисленик площади треугольника.');
writeln('Введение исходные данные:');
writeln('Основание (см) -> ');
readln(base);
 
writeln('Высота (см) -> ');
readln(h);
 
sq := h * base / 2;
 
writeln('Площадь треугольника ', sq:2:2, ' км.см.');
 
end.
 

cHJvZ3JhbSBTcXVhcmVUcmlhbmdsZTsKewoJ0JfQsNC00LDRh9CwOgoJLSA1OSDQuNC3ICJUdXJibyBQYXNjYWwg0LIg0LfQsNC00LDRh9Cw0YUg0Lgg0L/RgNC40LzQtdGA0LDRhSIKCS0g0LDQstGC0L7RgCDRgdCx0L7RgNC90LjQutCwINCd0LjQutC40YLQsCDQmtGD0LvRjNGC0LjQvQoJ0KDQtdGI0LXQvdC40LU6CgktINCw0LLRgtC+0YAg0JTQvNC40YLRgNC40Lkg0KEuINCa0YPQt9C90LXRhtC+0LIKICAgIC0g0YbQtdC90LAgJDEwOS4wMAp9CnZhcgoJaCwgYmFzZSwgc3EJCTpyZWFsOwpiZWdpbgoKd3JpdGVsbign0JLRi9GH0LjRgdC70LXQvdC40Log0L/Qu9C+0YnQsNC00Lgg0YLRgNC10YPQs9C+0LvRjNC90LjQutCwLicpOwp3cml0ZWxuKCfQktCy0LXQtNC10L3QuNC1INC40YHRhdC+0LTQvdGL0LUg0LTQsNC90L3Ri9C1OicpOwp3cml0ZWxuKCfQntGB0L3QvtCy0LDQvdC40LUgKNGB0LwpIC0+ICcpOwpyZWFkbG4oYmFzZSk7Cgp3cml0ZWxuKCfQktGL0YHQvtGC0LAgKNGB0LwpIC0+ICcpOwpyZWFkbG4oaCk7CgpzcSA6PSBoICogYmFzZSAvIDI7Cgp3cml0ZWxuKCfQn9C70L7RidCw0LTRjCDRgtGA0LXRg9Cz0L7Qu9GM0L3QuNC60LAgJywgc3E6MjoyLCAnINC60Lwu0YHQvC4nKTsKCmVuZC4K

OC41CjEwCg==

8.5
10