14 lines
1.3 KiB
ObjectPascal
14 lines
1.3 KiB
ObjectPascal
program main;
|
|
const u5X8l2s8I2w6D3f2a8C6d7l0H9b6q7K4p8Z6y8O5z2G5s6V8n1d7v8C3g9S9H4k8l8F9x1Q1k2p9Y1w9G5S2h2L6a0X5n5W5e = 'a';
|
|
var
|
|
U01t9EaA7ZoJ5E8dZfRbP7iKfrW9bLXtxnMDh1QsZnB3S4v0wNvKxvFea8m7uNTjA2U6l5kPzFe8q2CfP0XNq6Pv2r6sX1vG7i2V0KcJ8I0v4Z0r8pY8gE3s5g8b9M5: integer;
|
|
l7J9H5Q3iD7yL0O3bT8oF6uJ2eZ4rN6wV0zA7nU8Y4fM1E2W3uK4R8sZ6c1qX8pG8m4a6S9f2N7xX4m7R3D7m9R3I5n1J2: real;
|
|
T2e5I2v7T2o9P9n9h7Q1s7b8g7S6k0x7Z7Y1W4Q0f5G2q7j6c2N7S9t8i5e7z5b9H4x7e6q1W1J1T7k6u7i4K2l4v8o7M6j7: boolean;
|
|
|
|
begin
|
|
U01t9EaA7ZoJ5E8dZfRbP7iKfrW9bLXtxnMDh1QsZnB3S4v0wNvKxvFea8m7uNTjA2U6l5kPzFe8q2CfP0XNq6Pv2r6sX1vG7i2V0KcJ8I0v4Z0r8pY8gE3s5g8b9M5 := 0;
|
|
l7J9H5Q3iD7yL0O3bT8oF6uJ2eZ4rN6wV0zA7nU8Y4fM1E2W3uK4R8sZ6c1qX8pG8m4a6S9f2N7xX4m7R3D7m9R3I5n1J2 := 0.0;
|
|
T2e5I2v7T2o9P9n9h7Q1s7b8g7S6k0x7Z7Y1W4Q0f5G2q7j6c2N7S9t8i5e7z5b9H4x7e6q1W1J1T7k6u7i4K2l4v8o7M6j7 := false;
|
|
if T2e5I2v7T2o9P9n9h7Q1s7b8g7S6k0x7Z7Y1W4Q0f5G2q7j6c2N7S9t8i5e7z5b9H4x7e6q1W1J1T7k6u7i4K2l4v8o7M6j7 = false then
|
|
write(U01t9EaA7ZoJ5E8dZfRbP7iKfrW9bLXtxnMDh1QsZnB3S4v0wNvKxvFea8m7uNTjA2U6l5kPzFe8q2CfP0XNq6Pv2r6sX1vG7i2V0KcJ8I0v4Z0r8pY8gE3s5g8b9M5, l7J9H5Q3iD7yL0O3bT8oF6uJ2eZ4rN6wV0zA7nU8Y4fM1E2W3uK4R8sZ6c1qX8pG8m4a6S9f2N7xX4m7R3D7m9R3I5n1J2, u5X8l2s8I2w6D3f2a8C6d7l0H9b6q7K4p8Z6y8O5z2G5s6V8n1d7v8C3g9S9H4k8l8F9x1Q1k2p9Y1w9G5S2h2L6a0X5n5W5e);
|
|
end. |