program имя;   - имя может состоять только из латинских букв (не допускаются названия с цифрами).
uses crt; - подключает модуль crt, позволяющий использовать цвета в программе.
var x,y:real; - блок обновления переменных. в данном случае переменные x,y типа real, что значит целое число.
begin
read(x); - вводим значение с клавиатуры, присваеваем это значение переменной x.
y:=x*x; - блок вычислений. Присваеваем переменной y значение x*x.
textcolor(12); - задаем цвет выводимого текта(в данном случае 12 - красный).
write(y); - выводим на экран значение переменной y.
readln; - пишем для того чтобы программа после выполнения не завкрывалась мгновенно.
end.