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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.