program q001; -имя проги
uses crt; - подключаемые модули
const a=20.3; - константы
var x,f:real; - переменные
begin
clrscr; - очищаем экран
writeln('x ','F'); - выводим на экран x, F (шапка таблицы)
x:=0.5; - устанавливаем начальное значение х
while x<=2 do begin - цикл, выполняющийся пока x<=2
if x>1 then f:=ln(x+1)/ln(10) - если x>1 f=lg(x+1)
else f:=sin(2*sqrt(a*x)); - иначе f=sin(2*sqrt(a*x))
writeln(x:3:4,' ',f:3:4); - выводим на экран x, f с переходом на следующую строку
x:=x+0.1; - увеличивает х на 0.1
end; - конец цикла
readkey; ждем нажатия любой клавиши
end. - конец программы