FIRST LAB, Prolog - rextester

Language: Layout:

program :- 
% ---------------------------------------------------START----------------------------------------------------
% --------------------------------------------------ЗАДАЧА 1--------------------------------------------------
triangle, nl,
% --------------------------------------------------ЗАДАЧА 2--------------------------------------------------
writeln('Посчитать периметр и площадь квадрата(1) или прямоугольника(2)?'),
read(X), (X = 1, square; X = 2, rectangle; write('Введено неправильное число!')), nl,
% --------------------------------------------------ЗАДАЧА 3--------------------------------------------------
writeln('Посчитать объём прямоугольного параллелепипеда(1) или конуса(2) или цилиндра(3)?'),
read(X), (X = 1, parallelepiped; X = 2, cones; X = 3, cylinder; write('Введено неправильное число!')), nl.
% --------------------------------------------------BACKEND---------------------------------------------------
triangle :- write('Введите три стороны треугольника:'), nl,
            read(A), read(B), read(C),
            P is (A+B+C),
            write('Периметр: '), write(P), nl.
            
square :- write('Введите cторону квадрата:'), nl,
          read(A),
          P is (A*4), S is (A*A),
          write('Периметр: '), write(P), nl,
          write('Площадь: '), write(S).
          
rectangle :- write('Введите cторону квадрата:'), nl,
             read(A), read(B),
             P is ((A+B)*2), S is (A*B),
             write('Периметр: '), write(P), nl,
             write('Площадь: '), write(S).
             
parallelepiped :- write('Введите длину, ширину и высоту:'), nl,
            read(A), read(B), read(H),
            V is (A*B*H),
            write('Объем прямоугольного параллелепипеда: '), write(V), nl.
            
cones :- write('Введите площадь основания конуса и высоту:'), nl,
            read(S), read(H),
            V is ((1/3)*S*H),
            write('Объем конуса: '), write(V), nl.
            
cylinder :- write('Введите площадь основания цилиндра и высоту:'), nl,
            read(S), read(H),
            V is (S*H),
            write('Объем цилиндра: '), write(V), nl.
% ----------------------------------------------------END-----------------------------------------------------
:- program.

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