Giúp mìnk vs !!!!! Cần gấp :(

[PatajiYoToshide]

Bài 1
Nhập vào từ bàn phím 2 số nguyên A, B
Hiển thị ra mhình:
Dòng 1 : ghi 2 số A và B cách nhau ít nhất 1 dấu cách
Dòng 2 : ghi kq khi đem số A trừ số B
Dòng 3 : ghi kq khi đem số A cộng số B
Dòng 4 : Ghi kq khi đem số A nhân số B
Dòng 5: Ghi chu vi hcn có độ dài 2 cạnh là A, B

bài 2
Ngé.Bohemieng ‹3: Nhập vào từ bàn phím 3 số nguyên x, y, z
Ngé.Bohemieng ‹3: Hiển thị ra mhình diện tích S của hthang có x, y, z tươg ứng là đọ dài là độ dài đáy lớn, độ dài đấy bé và chiều cao của 1 hthag
Ngé.Bohemieng ‹3: theo CT : S = (x+y)z / 2

Tks n` lắm

[thecuong064]

Mấy cái này chỉ cần dựa theo công thức toán học là xong rồi. Chả cần nát óc

[badboy11a8]

xem cái này được hok. pascal đấy

uses crt;
var a,b: integer;
begin
clrscr;
write('nhap vao so a di nao ') ; readln(a);
write('nhap vao so b di nao ') ; readln(b);
writeln(a,' ',b);
writeln('ket qua lay a tru b la',a-b);
writeln('ket qua lay a cong b la',a+b);
writeln('ket qua lay a nhan b la',a*b);
writeln('chu vi hcn canh a va b la', (a+b)*2);

readln;
end.

Bài 2:

uses crt;
var x,y,z: interger;
begin
clrscr;
write('nhap vao so x'); readln(x);
write('nhap vao so y'); readln(y);
write('nhap vao so z'); readln(z);
write(' dien tich hinh thang', ((x+y)*z)/2);
readln;
end.

mấy bài pascal này dễ như xơi cơm vậy mà. ko có gì rắc rối đâu

[badboy11a8]

mỏi tay chít đi đc