trả lời ba câu trở lên, cảm ơn nhiều ạ, hứa sẽ tick đầy đủ

1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)

2) Cho đoạn chương trình sau:

Program sua loi;

var a,b,s =real

Begin

write ('nhap a=') , readln('a');

write (nhap b=') , readln(b')

s:= (a*b)/2;

write ('s=s);

readln

End.