Составитт порограмму определения функции y=2^x,где x=1 ,2, ! надо.

Var x, y, i, sr: Integer;
begin
Writeln('Введите число x: ');
readln(x);
Writeln('y=2^x');
Writeln('y=2^',x);
sr:=1;
for i:=1 to x do
begin
sr:=sr*2;
end;
Writeln('y=', sr);
end.