по abc pascal надо составить эти : №1 вывести на экран наибольшее из двух чисел №2 вывести на экран квадрат введенного чисел №3 вывести название дня недели по его номеру №4 вывести на экран все натуральные числа до заданного №5 вычислить значение выражения : у=5х(х) +16х(2)+18х-29

//1
var
a, b: integer;
begin
read (a, b);
if a>b then write (a) else write (b);
end.

//2
begin
write (sqr (readinteger ('Введите число: ')));
end.

//3
begin
case readinteger('Ведите номер дня: ') of
1: write ('Понедельник');
2: write ('Вторник');
3: write ('Среда');
4: write ('Четверг');
5: write ('Пятница');
6: write ('Суббота');
7: write ('Воскресенье');
end;
end.

//4
begin
  for var i:=1 to readinteger ('n: ') do write (i, ' ');
end.

//5
begin
var x:=readreal ('Введите x: ');
write (5*x*x+16*x*2+18*x-29);
end.