fork download
copy 
  1. program ideone;
  2. var
  3.    number1, {переменная, в которой будет содержаться первое число}
  4.    number2, {переменная, в которой будет содержаться второе число}
  5.     rezult {переменная, в которой будет содержаться результат}
  6.      :integer; 
  7.  
  8. Begin
  9.  
  10.    Write ('Введите первое число ');
  11.  
  12.    Readln (number1);
  13.  
  14.    Write ('Введите второе число ');
  15.    {Выводим на экран символы, записанные между апострофами}
  16.    Readln (number2);
  17.    {Введенное пользователем число считываем в переменную number2}
  18.    rezult := number1 + number2;
  19.    {Находим сумму введенных чисел и присваиваем переменной rezult}
  20.    Write ('Сумма чисел ', number1, ' и ', number2, ' равно ', rezult);
  21.    {Выводим на экран строчку, содержащую ответ задачи}
  22.    Readln;{Процедура задержки экрана}
  23. End.
  24.  
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
1
2
stdout
copy 
Введите первое число Введите второе число Сумма чисел 1 и 2 равно 3
https://ideone.com/0oVcNU
language:
Pascal (fpc 3.0.4)
created:
5 hours 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!