Задачи на Паскаль с решением (8 класс)

Задача 1. Из двух наименьшееНапишите программу ввода с клавиатуры двух произвольных чисел X,Y.
Программа должна найти наименьшее число из введённых, и вывести его на экран.

program Z1;
var x, y: integer;
begin
writeln('x y: ');
readln(x,y);
if xthen writeln (x)
else writeln (y);
end.

Задача 2. Из числа в неделю
Составить программу, которая в зависимости от порядкового номера дня недели (1, 2, ..., 7) выводит на экран его название (понедельник,..., воскресенье).

program Z2;
var x: integer;
Begin
Writeln('введите число от1 до7');
Readln(x);
if x=1 then writeln(‘пн');
if x=2 then writeln('вт');
if x=3 then writeln('ср');
if x=4 then writeln('чт');
if x=5 then writeln('пт');
if x=6 then writeln('сб');
if x=7 then writeln(‘вс');
end.

program Z2;
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;
End.

Задача 3. Напечатать ряд из чисел
Напечатать ряд из повторяющихся чисел 20 в виде:20 20 20 20 20 20 20 20 20 20

program Z3;
var i: integer;
begin
for i:=1 to 10 do write(20,' ');
end.

Задача 4.
Написать программу: Таблица умножения

program Z4;
var i, j: integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do
write((i * j):4);
writeln;
end;
end.

Задача 5.
Найти сумму четных цифр числа

program Z5;
var n,sum: integer;
begin
readln(n);
sum:= 0;
while n > 0 do
begin
if n mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.

Задача 6. Напечатать ряд из чисел
Для целого числа K от 1 до 99 напечатать фразу
"Мне k лет", учитывая при этом, что при некоторых значениях K слово "лет" надо заменить на слово "год" или "года".
Например, 11 лет, 22 года, 51 год.

program Z6;
var k:integer;
begin
writeln('Введите число лет');
readln(k);
case k of
1,21,31,41,51,61,71,81,91:writeln('Мне ',k,' год');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: writeln('Мне ' ,k, ' года');
else writeln('Мне ' ,k, ' лет');
end;
end.