Bài 2:
program x_va_y;
uses crt;
var x,y:integer;
begin
clrscr;
writeln('nhap vao gia tri cua x: ');readln(x);
writeln('nhap vao gia tri cua y: ');readln(y);
writeln('gia tri cua x la: ',x);
writeln('gia tri cua y la: ',y);
readln
end.
Bài 3:
program dien_tich_tam_giac;
uses crt;
var a,h:integer;
      s:real;
begin
clrscr;
writeln('nhap vao duong cao cua tam giac: ');readln(h);
writeln('nhap vao canh tuong ung voi duong cao cua tam giac: ');readln(a);
s:=(a*h)/2;
writeln('dien tich cua tam giac la: ',s:4:2);
readln
end.