Предметы
- Математика
- Русский язык
- Алгебра
- Английский язык
- Литература
- Физика
- Химия
- История
- Геометрия
- Биология
- География
- Другие предметы
- Қазақ тiлi
- Информатика
- Українська мова
- Обществознание
- Окружающий мир
- Українська література
- Музыка
- Немецкий язык
- Экономика
- Право
- Беларуская мова
- ОБЖ
- Французский язык
- Психология
- Технология
- Физкультура и спорт
- МХК
- Астрономия
- Кыргыз тили
- Оʻzbek tili
- Черчение
- Уход за собой
Program a1;
var a, b, с, min: real;
begin
writeln ('Введите три числа');
readln (a, b, с);
min := а;
if b min:=b;
if c min:=c;
writeln ('min=' , min);
end.