(Εάν έχετε εντοπίσει τυχόν λάθη παρακαλώ ενημερώστε μας.)

Program Athroisma;
{ Το πρόγραµµα αυτό υπολογίζει και εκτυπώνει το άθροισµα κάποιων αριθ-
µών, τελειώνει δε όταν το άθροισµά τους ξεπεράσει το 1.000 }
Var
a, s : Real;
Begin
s := 0; { απόδοση αρχικής τιµής στη µεταβλητή }
Repeat { οι παρακάτω εντολές επαναλαµβάνονται µέχρις ότου }
Readln(a); { η µεταβλητή s γίνει µεγαλύτερη από 1000 }
s := s+a
Until s>1000;
Writeln(s);
End.

Program MAX;
{ Το πρόγραµµα αυτό βρίσκει τον µεγαλύτερο από τρεις αριθµούς a, b, c.
Χρειάζεται να ορίσουµε µια βοηθητική µεταβλητή max, όπου εκεί θα καταχω-
ρούµε προσωρινά τον µεγαλύτερο αριθµό }
Var
a, b, c, max : Real;
Begin
Writeln(‘Δώσε τους τρεις αριθµούς : ‘);
Readln(a, b, c);
max := a;
If b > max then max := b;
If c > max then max := c;
Writeln(‘Ο µεγαλύτερος αριθµός είναι ο : ‘, max);
End.

Program Monos_Zygos;
{Το πρόγραµµα αυτό βρίσκει αν ένας ακέραιος αριθµός είναι µονός ή ζυγός}
Var
k, p, y : Longint;
Begin
Writeln(‘Δώσε έναν ακέραιο αριθµό : ‘);
Readln(k);
p := k div 2; { εύρεση του πηλίκου }
y := k mod 2; { εύρεση του υπολοίπου }
If y = 0 then
Writeln(‘Ο αριθµός είναι ζυγός’)
Else
Writeln(‘Ο αριθµός είναι µονός’);
End.

Program Antistrofh;
{ Το πρόγραµµα αυτό διαβάζει έναν διψήφιο ακέραιο αριθµό και υπολογίζει
και εκτυπώνει τον ακέραιο που προκύπτει από την αντιστροφή των ψηφίων
του }
Var
x, p, y, x1 : Byte;
Begin
Writeln(‘Δώσε έναν διψήφιο ακέραιο αριθµό : ‘);
Readln(x);
p := x div 10; { εύρεση του πηλίκου }
y := x mod 10; { εύρεση του υπολοίπου }
x1 := y * 10 + p; { σχηµατισµός του αντίστροφου αριθµού }
Writeln(‘Ο νέος αριθµός είναι : ‘, x1);
End.

Program Praxis;
{ Το πρόγραµµα αυτό διαβάζει δύο αριθµούς και ένα από τα τέσσερα σύµβο-
λα της αριθµητικής (+ – * /) και κάνει την αντίστοιχη πράξη στους αριθµούς }
Var
a, b, r : Real;
z : Char;
Begin
Writeln(‘Δώσε τους δύο αριθµούς : ‘);
Readln(a, b);
Writeln(‘Δώσε το σύµβολο της πράξης : ‘);
Readln(z);
Case z of
‘+’ : r := a + b;
‘-‘ : r := a – b;
‘*’ : r := a * b;
‘/’ : r := a / b;
End; { case }
Writeln(‘Το αποτέλεσµα είναι : ‘, r);
End.