Нужны примеры программ приведенных операторов

Var
x: Integer;
BEGIN
Writeln('Введите оценку от 2 до 5: '); Readln(x);
If x=2 Then Writeln('Плохо');
If x=3 Then Writeln('Удовлетворительно');
If x=4 Then Writeln('Хорошо');
If x=5 Then Writeln('Отлично');
Readln
END.

Var
x: Integer;
BEGIN
Writeln('Введите день недели от 1 до 7: '); Readln(x);
Case x of
1: Writeln('Понедельник');
2: Writeln('Вторник');
3: Writeln('Среда');
4: Writeln('Четверг');
5: Writeln('Пятница');
6: Writeln('Суббота');
7: Writeln('Воскресенье');
end;
Readln
END.

Uses crt;
Var 
a,b:integer;
BEGIN
Clrscr;
Writeln('Введите A и B: ');
Readln(a,b);
While a>=b do
a:=a-b;
Writeln(a);
Readln
END.

Var
x: Integer;
s: Longint;
BEGIN
Writeln('Введите число: '); Readln(x);
Repeat
Inc(x);
s:=s+x;
until x=100;
Writeln('Сумма всех чисел от ',x,' до 100= ',s);
Readln
END.

Var
k,n,i: Integer;
BEGIN
Write('Введите число: ');Readln(k);
Write('Введите N: ');Readln(n);
For i:=1 to n do
Write(k,' ');
Readln
END.