can you pls write me a pascal program...?

Question

that reads an integer and outputs an statement telling whether or not the number is evenly divisible by 3? The program should also output the remainder and when being divided by 3 use if-then-else statement. Thanks!

Answer 1

program answer;
uses crt;
var
n:integer;
r: integer
begin
clrscr;
repeat
write('Enter an integer number:');
readln(n);
if (n mod 3 == 0 ) writeln(n, ' is divisible by 3') else
begin
writeln(n, ' is not divisible by 3');
r:=n-n div 3;
writeln('The remainder is ', r:4)
end;
readln;
until 1==2;
end.