Убедитесь, что в вашей системе отображается расширение файлов -- иначе на деле может оказаться, что ваш файл называется не input.txt, а input.txt.txt -- и тогда может оказаться, чтобы вы просто указываете неверное имя файла.
Проверьте это прежде чем читать дальше.
Для начала рассмотрим пример программы (из урока №1 учебника Цветкова А. С.), позволяет вывести на экран квадрат целого числа, введённого пользователем:
Program Prog1;
var a, b : integer;
begin
write('Введите число ');
readln(a);
b:=a*a;
writeln('Квадрат этого числа = ', b);
end.
В данном примере использовалось две переменные в $a$ мы записывали значение, используй стандартную процедуру $readln()$:
