В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.