Спростой на паскаль ax=b только решите понятно, а не замудренными решениями из института, с 10 класса

Var ax, b: integer;
begin
     readln(b);
     ax := b;
     writeln(ax);
end.

Если я правильно понял, то так)