1:
uses crt;
var a,b,bt:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
bt:=(sqr(a)+sqr(b))/2;
writeln('bieu thuc=',bt:4:2);
readln;
end.
2:
uses crt;
var s,v,t:integer;
begin
clrscr;
write('nhap thoi gian xe chay:'); readln(t);
write('nhap van toc cua xe:'); readln(v);
s:=v*t;
writeln('quang duong xe chay duoc la: ',s:4:2);
readln;
end.