При наборе текста между словами нажимают клавишу:

Http://ftp.com/web/www.txt

FEHDGBGAC

Eks-экс
enter-энтер
shift-шифт

Думай это легко  подумай внимательно смотри 

Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.