Question

 Задача в 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 = …

Answer 1

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.