câu 17
a)-2
b)2
câu 18
uses crt;
var a:integer;
begin
clrscr;
writeln('nhap vao a:');readln(a);
if (a mod 7=0) then writeln( 'a chia het cho 7') else writeln('a khong chia het cho 7');
readln
end.
câu 19
if ( điều kiện ) then (câu lệnh) else .........