1
uses crt;
var a,h: real;
begin
clrscr;
readln(a,h);
writeln(' dien tich tam giac la: ',a*h:4:2);
readln;
end;
2.
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,h);
writeln('x+y=',x+y);
writeln('x-y=',x-y);
writeln('x*y=',x*y);
readln;
end.
3.
uses crt;
var a,b: integer;
begin
clrscr;
writeln('c=', a div b);
writeln('d=', a mod b);
readln;
end.