17. Вычислите функции y=x+10, y=-x+60 при зна-
чениях х -6; 1; ...; 57 и постройте сравнительную диаграм-
му значений функций у1 и у2
​

Ей, жарық күн, нұрыңды шаш далама,

шаш нұрыңды қарттарға, жас балаға,

ызғар сіңген жеріме шуақ керек,

мұқтаж оған ауыл да, астана да.

Сәулеңменен себеле үміт демін,

жер бетінен жылыссын күдіктерім.

Адамдардың сатқындық, сұмдығынан

қалжыраған жерімді жібіт менің.

Күңгірттенбей, көтерсін шыңым басын,

қарттарымның ұзартқын ғұмыр жасын.

Қорқыныш пен үрей жер кеуделерде,

қу бәрін де — соңына бұрылмасын!

Кетсін тағы шарықтап алысқа үнім,

қонақтасын ырыс пен табыс күнім.

Ұл-қыздары көтерсін қол ұстасып

қазағымның елдік пен намыс туын.

Жарқырасын шуақ боп алғашқы үміт,

жүректерді жүрекпен жалғастырып.

Адамзатқа бірлік бер, тыныштық бер –

ынтымақтан туындар бар жақсылық!

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.