Составить линейные программы : 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.