28 lines
1 KiB
ObjectPascal
28 lines
1 KiB
ObjectPascal
uses РусскийЯзыг;
|
|
|
|
нач
|
|
ПечатьСтроку('=== Тест русского Паскаля ===');
|
|
ПечатьСтроку;
|
|
|
|
Печать('Введите ваше имя: ');
|
|
перем имя := ВводСтроки;
|
|
ПечатьСтроку('Привет, ', имя, '!');
|
|
ПечатьСтроку;
|
|
|
|
Печать('Введите число: ');
|
|
перем x := ВводЦелого;
|
|
|
|
ПечатьСтроку('Число: ', x);
|
|
ПечатьСтроку('Квадрат: ', Квадрат(x));
|
|
ПечатьСтроку('Корень: ', Корень(x));
|
|
ПечатьСтроку('МодЧисла от -', x, ' = ', МодЧисла(-x));
|
|
ПечатьСтроку;
|
|
|
|
Печать('Случайное число от 1 до 100: ');
|
|
ПечатьСтроку(Случайное(1, 100));
|
|
|
|
ПечатьСтроку;
|
|
ПечатьСтроку('Пауза 2 секунды...');
|
|
Пауза(2000);
|
|
ПечатьСтроку('Готово!');
|
|
кон. |