:- use_module(library(readutil)).

calculate :-
    write('This program calculates the value of A + (B - C)^2.'), nl,
    write('Please enter each number followed by a period (e.g., 5. or 10.).'), nl,
    write('Enter value for A: '),
    read(A),
    write('Enter value for B: '),
    read(B),
    write('Enter value for C: '),
    read(C),
    Result is A + (B - C) * (B - C),
    write('The result of '), write(A), write(' + ('), write(B), write(' - '), write(C), write(')^2 is: '), write(Result), nl.