решите пример по информатике

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

почитай тут 

пщояк 17 27 16 33 17

нщёп 15 27 7 17

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.