fork download
copy 
  1. greet_user :-
  2.     write('Добро пожаловать! Пожалуйста, представьтесь.'), nl,
  3.     write('Введите ваше имя (закончите точкой): '),
  4.     read(Name),
  5.     format('Здравствуйте, ~w! Рады видеть вас.', [Name]), nl.
  6.  
  7. :- initialization(greet_user).
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Добро пожаловать! Пожалуйста, представьтесь.
Введите ваше имя (закончите точкой): Здравствуйте, end_of_file! Рады видеть вас.
GNU Prolog 1.4.5 (64 bits)
Compiled Feb  5 2017, 10:30:08 with gcc
By Daniel Diaz
Copyright (C) 1999-2016 Daniel Diaz
| ?-
https://ideone.com/R2pKxF
language:
Prolog (gprolog 1.4.5)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!