1.

uses crt;

var cao:integer;

begin

clrscr;

write('nhap chieu cao: ');readln(cao);

if cao > 150 then write('tien ve la 100000')

else if cao > 130 then write('tien ve la 50000')

else if cao < 100 then write('mien phi');

readln;

end.

2.

uses crt;

var nang,cao,bmi:real;

begin

clrscr;

write('nhap can nang: ');readln(nang);

write('nhap chieu cao: ');readln(cao);

bmi:=nang/(cao*cao);

if bmi < 18.5 then writeln('nhe can, suy dinh duong')

else if bmi < 25 then writeln('binh thuong')

else if bmi < 30 then writeln('thua can')

else writeln('beo phi');

readln;

end.

bài 1

var a:integer;

begin

          write('nhap vao so chieu cao'); read(a);

        if a>= 150 then write( 'so tien ve la 100 000 dong');

        if a>=130 then write( 'so tien ve la 50 000 dong');

        if a>= 150 then write( 'so tien ve la 100 000 dong') else

        write( 'mien phi ');

end.

bài 2 

var a,b,s:integer;

begin

            write('nhap vao can nang cua ban'); read (a);

            write ('nhap vao chieu cao cua ban'); read(b)

            s:=a/b*b;

    if s<18,5 then write (' ban nhe can suy dinh duong');

    if s<=18,5 of s<=25 then write('ban can doi');

    if s<25 of s<30 then write('ban thua can')

   else write ( ' ban beo phi');

end.