найти число к

[Karlen1990]

K находится в диапазоне K1<=K<=K2. диапазон известен(например5<=K<=10)
если К находится в этом диапазоне то к значению +1, если нет 0.

такая программа будет правильной? в паскале
uses crt;
var K1,K2,K:real;
begin
clrscr;
Read(K1,K2);
if K<=K1 and K<=K2 then K:=K+1 else K:=0;
write(k);
end.

или нужны массивы?

[whatever]

Сообщение от Karlen1990

K находится в диапазоне K1<=K<=K2. диапазон известен(например5<=K<=10)

если К находится в этом диапазоне то к значению +1, если нет 0.

Ничего не кажется странным?

И в самом коде К объявляется, но нигде не задается.

[Karlen1990]

а как будет правильно?

[tmtm]

Нужно организовать ввод К.

[AlexMas]

Сообщение от Karlen1990

K находится в диапазоне K1<=K<=K2. диапазон известен(например5<=K<=10)
если К находится в этом диапазоне то к значению +1, если нет 0.

Я туплю или если К в диапазоне, то к:=к+1, а если нет, то к:=к+0;
Нипанятна =)

Сообщение от Karlen1990

if K<=K1

Ошибка в выражении
Должно быть if K=>K1

Ну и про ввод К не забыть, как говорили выше.