Задачи 8 класс (Pascal)

1.

Задача 1. Из двух наименьшее
Напишите программу ввода с клавиатуры двух
произвольных чисел .
Программа должна найти наименьшее число из
введённых, и вывести его на экран.
program z1;
var x, y: integer;
begin
writeln('x, y');
readln(x, y);
if x<y then writeln (x)
end.
else writeln (y);

2.

Задача 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('ср');
…
end.

3.

Задача 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.