1a

program tinh_tien_but;

uses crt;

var  soluongbut,tong:integer;

begin

clrscr;

write(' nhap so luong but'); readln(soluongbut);

if soluongbut>=200 then write(' nhap qua so luong but') else 

begin

tong:=soluongbut*3000;

write(' voi', soluongbut,' tong tien la',tong);

end;

readln;

end.

b) mik ko hiểu ý bn muốn hỏi

1)
uses crt;
var b,t:longint;
begin
clrscr; 
repeat
write('Nhap vao so luong but: ');readln(b);
if (b > 200) then writeln('Qua so luong but');
until (b <= 200);
t := b*3000;
writeln('Tien but: ',t,'VND');
readln;
end.

2)
1 số kiểu dữ liệu cơ bản trong pascal 
+ kiểu dữ liệu số nguyên : integer (var a:integer;)
+ kiểu dữ liệu số thực : real (var r:real;)
+ kiểu dữ liệu kí tự : char (var c:char);
+ kiểu dữ liệu xâu kí tự : string (var s:string;)
+ kiểu dữ liệu true/false: boolean  (var kt:boolean)