151 в десятичной
не меньше 20 символов
Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
Var
sound: system.Media.SoundPlayer;
begin
sound := new system.Media.SoundPlayer;
sound.SoundLocation := '*.wav';
sound.Play;
end.
Солнце нужно для растения что бы растение выделяло фото синтез или дышало