форма вывода данных (Паскаль)

[Сирокко]

задали нам прогу для нахождения квадрата и обратного числа:

program raschet;
uses crt;
var a,kv,obr:real;
begin
clrscr;
write('a=');
read(a);
kv:=sqr(a);
writeln('kvadrat chisla a, kv=',kv :2:0);
obr:=1/a;
writeln('obratnoe chislo a, obr=',obr :2:2);
readkey;
end.

На черном экране при вводе например 10 выводится kv = 100 obr =0.10
но препод сказала чтоб оформлен ввод был не так - :2:2 или :2:0 - а по-другому. А как по-другому? Буду признателен за помощь.)

[eoln]

Может быть надо писать с максимально возможной точностью и без лишних нулей?

function okr(x: real): string;
var
  res: string;
begin
  str(x:0:13, res);
  while ((res[length(res)] = '0') and (pos('.', res) > 0))//не очень красиво написано, но работает
        or (res[length(res)]= '.') do delete(res, length(res), 1);
  okr := res;
end;

Соответственно в коде будет

writeln('kvadrat chisla a, kv=',okr(kv));
obr:=1/a;
writeln('obratnoe chislo a, obr=',okr(obr));

[Сирокко]

Спасибо огромное!)