Задача в Geany Задание 1. Вводится 2 числа. Первое увеличить на 10 раз, второе - в 10 раз и поменять их

местами

Задача 2. Найти значения функции y = x*x - 4*x + 5

для x = 1, 3, 5. Вывести значения на

экран в виде:

x = 1; y = 2

x = 3; y = ...

x = 5; y = ...

1)

uses crt; var x, y: integer; begin cls; write ('x = ') ; readln (x) ; write ('y = ') ; readln (y) ; writeln ('x = ', y*10) ; writeln ('y = ', x*10) ; end.

2)

uses crt; var y, x: real; begin cls; write ('x = 1; ') ; writeln ('y = ',1*1 - 4*1 + 5) ; write ('x = 3; ') ; writeln ('y = ',3*3 - 4*3 + 5) ; write ('x = 5; ') ; writeln ('y = ',5*5 - 4*5 + 5) ; end.