1.

var a,b,c,s: real;

begin

write('Nhap a,b:');

readln(a,b);

c:=a*a+b*b;

s:=(a*b)/2;

writeln('Canh huyen cua tam giac la:',sqrt(c));

writeln('Dien tich cua tam giac la:',s);

readln;

end.

2.

var v,t,s: integer;

begin

write('Nhap van toc:');    readln(v);

write('Nhap thoi gian:');    readln(t);

s:=v*t;

write('Do dai quang duong la: ',s);

readln;

end.

bài 1:

uses crt;

var a,b,c: real;

begin

clrscr;

Write ('nhap canh goc vuong thu nhat: ');   readln (a);

write ('nhap canh goc vuong thu hai: ');   readln (b);

c:=sqrt(sqr(a)+sqr(b));

writeln ('canh huyen la: ',c:1:2);

readln;

end.

bài 2: 

uses crt;

var v,t,s: real;

begin

clrscr;

write ('nhap van toc: ');   readln (v);

write ('nhap thoi gian: ');   readln (t);

s:=v*t;

writeln ('quang duong la: ',s:1:2);

readln;

end.