Upload New File

2026-07-04 16:49:09 +00:00 · 2026-07-04 16:49:09 +00:00 · c99573bd6d
parent 14c94479c2
commit c99573bd6d
1 changed files with 28 additions and 0 deletions
--- a/ТЕСТЫ/test2.pas
+++ b/ТЕСТЫ/test2.pas
@ -0,0 +1,28 @@
+uses РусскийЯзыг;
+
+нач
+  ПечатьСтроку('=== Тест русского Паскаля ===');
+  ПечатьСтроку;
+  
+  Печать('Введите ваше имя: ');
+  перем имя := ВводСтроки;
+  ПечатьСтроку('Привет, ', имя, '!');
+  ПечатьСтроку;
+  
+  Печать('Введите число: ');
+  перем x := ВводЦелого;
+  
+  ПечатьСтроку('Число: ', x);
+  ПечатьСтроку('Квадрат: ', Квадрат(x));
+  ПечатьСтроку('Корень: ', Корень(x));
+  ПечатьСтроку('МодЧисла от -', x, ' = ', МодЧисла(-x));
+  ПечатьСтроку;
+  
+  Печать('Случайное число от 1 до 100: ');
+  ПечатьСтроку(Случайное(1, 100));
+  
+  ПечатьСтроку;
+  ПечатьСтроку('Пауза 2 секунды...');
+  Пауза(2000);
+  ПечатьСтроку('Готово!');
+кон.