FORTH LAB, Prolog - rextester

Language: Layout:

program :-
    
    write('введите тип местности: '),nl,
    write('1 - в городе '),nl,
    write('2 - вне города '),nl,
    write('3 - магистраль '),nl,
    read(A),
    (A = 1, foo1; A = 2, foo2; A = 3,foo3).
    foo1 :-
    write('введите скорость: '),nl,
    read(A),
    (A > 75, write('слишком быстро, ждём штраф'),nl; A = 0,write('вы стоите на месте'),nl; A > 0, A < 40,write('нормальная скорость'),nl;A >= 40, A =< 75,write('быстро'),nl).
    %%(A > 70, write('слишком быстро'),nl; A = 0,write('вы стоите на месте'),nl; A > 0, A < 40,write('нормальная скорость'),nl; A >= 49, A <= 70,write('быстро'),nl).
    foo2 :-
    write('введите скорость: '),nl,
    read(A),
    (A > 105, write('слишком быстро, ждём штраф'),nl; A = 0,write('вы стоите на месте'),nl; A > 0, A < 40,write('медленно'),nl;A >= 40, A =< 105,write('нормальная скорость'),nl).
    foo3 :-
    write('введите скорость: '),nl,
    read(A),
    (A > 125, write('слишком быстро, ждём штраф'),nl; A = 0,write('вы стоите на месте'),nl; A > 0, A < 60,write('медленно'),nl;A >= 60, A =< 125,write('нормальная скорость'),nl).
:- program.

[ - ] Show input
Absolute running time: 0.4 sec, cpu time: 0.26 sec, memory peak: 7 Mb, absolute service time: 0,44 sec