fork download
copy 
  1. program MinOfThreeNumbers;
  2.  
  3. var
  4.   num1, num2, num3, minValue: Integer;
  5.  
  6. begin
  7.   // Введення трьох чисел
  8.   writeln('Введіть перше число:');
  9.   readln(num1);
  10.  
  11.   writeln('Введіть друге число:');
  12.   readln(num2);
  13.  
  14.   writeln('Введіть третє число:');
  15.   readln(num3);
  16.  
  17.   // Пошук мінімального числа
  18.   minValue := num1;
  19.  
  20.   if num2 < minValue then
  21.     minValue := num2;
  22.  
  23.   if num3 < minValue then
  24.     minValue := num3;
  25.  
  26.   // Виведення мінімального числа
  27.   writeln('Мінімальне число: ', minValue);
  28. end.
  29.  
  30.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
1
stdout
copy 
Введіть перше число:
Введіть друге число:
Введіть третє число:
Мінімальне число: 0
https://ideone.com/Swwyak
language:
Pascal (fpc 3.0.4)
created:
3 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!