Upload New File

ТЕСТЫ/test2.pas

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