в приклепленном файле задания

а вот что получилjсь:
program function;
users crt;
var x,a,y,k1,k2:real;
begin
clrscr;
x:=0.844;
a:=0.83756;
y:=a*(1-exp(-0.2));
if (0<x) and (x<2) then
k1:=y*arctan(1-sqr(x));
writeln ('k1=');
else
if x>=2 and x<=(-y) then
k2:=ln(abs(1-x/y);
writeln ('k2=');
else
writeln ('нет решения');
readln;
end.
Подскажите в чем ошибка?

заданиеНажмите для просмотра прикрепленного файла Нажмите для просмотра прикрепленного файла

1. У меня FPC не дал скомпилить из-за того, что Вы программу назвали "fubction", a "function" - зарезервированное слово паскаля.
2. users -> uses
3. AND -> OR
4. Переменные нигде не выводились (сами глянете как надо в writeln)
Да и вообще у вас повсюду надо объединять блоками begin/end конструкции в операторах if



Код вообще-то принято отлаживать.

Спасибо за помощь) очень помогли)

Подскажите, не получается:1.составить программу для вывода на экран символов + расположив их в столбец.
Вот что получилось у меня:
program pr1;
var s:string;
i:integer;
begin
i:=43;
writeln ('vvedite simvols');
readln;
while (i<43) and (i>43) do
begin
writeln (chr(i));
readln;
begin
for i:=43 to length(s) do
writeln (s[i]);
end;
end;
end.


Программа ошибок не находит, но и результат не выдает, вроде сделала, как объясняли, а что не так не пойму.

Подразумевается, что вводить символы вы будете без пробелов, а окончание ввода произведете нажатием на enter.

Спасибо