Câu 1:
Input: 3 số nguyên a,x,b;
Output: Thông báo nghiệm của phương trình;
Khai báo biến:
Var a,b,x:longint;
Câu 2:
uses crt;
var a,b,t:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
if a mod 3=0 then inc(t,a);
if b mod 3=0 then inc(t,b);
writeln(t);
readln
end.