шаблон задачи

program z3;

var a,b:integer;

begin

write('Введите a');

readln(a);

 writeln('Число ', a) ;

  end.