Сам написал, сам отладил, вручную по памяти, хех. Компилится и работает. Хотя грустно, конечно...

[qlman]

program wirthnik;

var

a1,
a2,
a3,
sum

: string;

begin

a1:='is dead now. ';
a2:=' :/';
a3:='Niclaus Wirth ';

sum:=a3+a1+a2;

writeln (sum);

end.

Особенно финальная строчка грустная вышла.

Comments

[big_lebovvski]

это батч файл?

[qlman]

Это полноценный компилируемый код для готовой программы на Pascal. Автор которого вчера умер. Это один из ТАКИХ столпов программирования, что если ты не в курсе то лучше просто промолчать на этот раз.

[big_lebovvski]

Я как раз в курсе потому что на Паскале кучу чего понаписал. Но это было 25 лет назад и код простой. На Паскале он подлинней был бы. И что делает не понимаю так что да, промолчу на всякий случай))...

[qlman]

Ты определись - написал, или не понимаешь, что он делает. :) Ну ладно проблемы написать, я об синтаксис, где какая запятая местами спотыкался, но не прочитать надо совсем забыть, товарищ. :)

[metall_c_sharp]

F

Хоть и на сиподобных пишу всю жизень, но первая книга по программированию была про паскаль. Я ее правда далдьше 20-й страницы не прочел, но все-таки.

[qlman]

Ну, в паскале и делфи, по крайней мере, уже потихоньку отучали кодеров от использования goto, было запихивание рутин в процедуры и деревья if-then-else мал-мал подрубили. :)

[metall_c_sharp]

Свою профессиональную деятельность я начал уже в ООП-эпохе, так что описанное не застал ) Хотя, всякого хватает конечно. Но goto видел только в дизасемблированном коде, что как бы не дает гарантию что его там изначально написали =)

[mc6312]

НекрокомментЪ: а зогчем там переменные и склеивать финальную строку из трёх кусков?
Из ностальгических соображениев?

P.S. Если уж косить под виртовщину, а не под турбопаскакаль или нидайбох дельфи, то операторы надо писать капслоком, чтоб глаза кровоточили.