Ακέραια Διαίρεση

Πρόγραμμα σε Pascal που υπολογίζει το πηλίκο και το υπόλοιπο ακέραιας διαίρεσης.
Π.χ. Αν διαιρέσουμε το 9 με το 2, το πηλίκο είναι 4 (το 2 χωράει 4 φορές στο 9) και το υπόλοιπο είναι 1 (περισσεύει 1, 9-4 Χ 2=9-8=1).






Program diairesi;
Uses crt;
Var a,b,c,d:integer;
Begin
Clrscr;
     Write('Δώσε τον διαιρετέο:');
     Readln(a);
     Write('Δώσε τον διαιρέτη:');
     Readln(b);
     c:=a div b;
     d:=a mod b;
     Writeln('Το πηλίκο είναι:',c);
     Writeln('Το υπόλοιπο είναι:',d);
     Readln;
End.