Bài 2:
Uses    crt;
Const   g = 9.8;
Var     h: integer;
begin
    repeat
        clrscr;
        write('h = ');
        readln(h);
    until (h > 0);
    writeln('Van toc la: ',sqrt(2*g*h):0:2);
    readln;
end.

Bài 3:
Uses    crt;
Var     a,b: integer;
begin
    clrscr;
    write('a = ');
    readln(a);
    write('b = ');
    readln(b);
    writeln(a,'+',b,' = ',a+b);
    writeln(a,'-',b,' = ',a-b);
    readln;
end.

Bài 4:
Uses CRT;
Var a,b,c,Delta,x,x1,x2: real;
Begin
  Clrscr;
  Write('a = '); readln(a);
  Write('b = '); readln(b);
  Write('c = '); readln(c);
  If a=0 then
    If b=0 then
      If c=0 then
        Writeln('Phuong trinh co vo so nghiem')
      Else Writeln('Phuong trinh vo nghiem')
    Else Writeln('Phuong trinh co mot nghiem x = ',-c/b:0:2)
  Else
    Begin
      Delta:=b*b-4*a*c;
      If (Delta = 0) then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a):0:2)
      Else
        If (Delta < 0) then Writeln('Phuong trinh vo nghiem')
        Else
           Begin
             x1:=(-b-sqrt(Delta))/(2*a);
             x2:=(-b+sqrt(Delta))/(2*a);
             Writeln('Phuong trinh co 2 nghiem la x1 = ',x1:0:2 ,' va x2 = ',x2:0:2); 
           End;
     End;
Readln
End. 

Bài 5:
uses    crt;
var     v0,a,t: real;
begin
    repeat
        clrscr;
        write('v0 = ');
        readln(v0);
    until (v0 > 0);
    repeat
        write('a = ');
        readln(a);
    until (a > 0);
    repeat
        write('t = ');
        readln(t);
    until (t > 0);
    writeln('v = ',(v0 + a*t):0:2);
    writeln('S = ',(v0*t+a*sqr(t)/2):0:2);
    readln;
end.