Răspuns :
program brainly;
var a,b:integer;
begin
writeln ('Dati a si b');
readln(a, b);
if a mod b = 0 then
begin
writeln('Sunt divizibile');
end
else
begin
writeln('Nu sunt divizibile');
end;
end.
Rezultat:

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că ați găsit conținutul oferit util și inspirațional. Dacă aveți întrebări suplimentare sau doriți asistență, vă încurajăm să ne contactați. Ne-ar face plăcere să reveniți și nu uitați să ne adăugați în lista dumneavoastră de favorite!