Составить линейные программы: 1) нахождения площади помещения (домашней комнаты) ; 2) нахождения количества полных центнеров в х килограммах.

Program area; var weight, height:real; beginWriteln ('введите длинну и ширину комнаты') ; Readln (weight, height) ; weight:=weight*height; Write ('площадь = ', weight) ; end.

program centner; var kg:integer; beginWriteln ('введите количество килограммов') ; Readln (kg) ; kg:=kg div 100; Write ('центнеров: ', kg) ; end.