Напишите любую интересную программу на языке Pascal. Максимум строк-30.

Question

Николай Казаков · Accepted Answer

что-нить типа 
а=2, б=3 
до 
 т=т+.001 
 точка (sin(т*a)*100, sin(т*б) *100) 
луп 
 
и с постоянными поиграться. Рисует фигуры Лиссажу. ну, графику включи и всё такое. Я Паскаля никогда не знал) ) Для 30 строк вполне интересно.

Волкова Оксана · Answer

writeln('Батюшка.. . продайте Микрософт... '),,,,
writeln('за 100 млрд. не продам. . за 200 млрд. не продам'),,,,
writeln(а за 250 млрд. продам'),,,,
и так 30 строк.. . 
12 Виндовс....