Var x,y:real;
begin
write('x = '); readln(x);
if x>12
then y:=2*x+15
else if x=12 then y:=54.4 else y:=-7.8;
writeln('y = ',y);
end.
Пример:
x = 10
y = -7.8
Отнимается один от числа кроме 0
Http://mypascal.ru/blog/zapis_v_fajl_i_vyvod_iz_fajla_pascal/2013-06-08-6 посмотри , там все разобрано
Программа числа и промежуток (в Кумире) Ввод чисел через пробел