1)

var t:real'{vì `a/b` nên thương thường là số lẽ}

a,b:integer;

2)

begin

write('a',17 mod 5);
write('b',17 div 5);

end.

Bài 1:

Vì 2 số a,b là 2 số chẵn nên nó sẽ là số nguyên `=>` kiểu dữ liệu integer;

Còn nhóm t là kết quả của phép chia a và b nên nó sẽ là 1 số thực `=>` kiểu dữ liệu real

________________________

Chương trình hoàn chỉnh:

Program baitap;

Uses crt;

Var a,b:integer;

      t:real;

Begin

Clrscr;

Write('Nhap a,b:');

Readln(a,b);

t:=a/b;

Writeln('a/b=',t:5:2);

Readln

End.

_____________________________________________

Bài 2:

Program baitap2;

Uses crt;

Begin

Clrscr;

Write('17 div 5=',17 div 5);

Writeln('17 mod 5=', 17 mod 5);

Readln

End.