17 lines
237 B
Plaintext
17 lines
237 B
Plaintext
цел ю ;
|
|
цел ю3
|
|
|
|
ю:=4;
|
|
|
|
алг procedure
|
|
нач
|
|
вывод ю, нс
|
|
квадрат(ю)
|
|
вывод ю
|
|
кон
|
|
|
|
алг квадрат(рез цел ю1) | передача по ссылке
|
|
нач
|
|
ю1:=ю1*ю1
|
|
кон
|