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

а вот что получил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.
Подскажите в чем ошибка?

задание  _______.doc ( 20 килобайт ) Кол-во скачиваний: 131
 _______.doc ( 20 килобайт ) Кол-во скачиваний: 131

Подскажите, не получается: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.


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