Question

Створити функцію яка буде змінювати розмір вікна на 700х700 пікселів довільного коліру назвою вікна у вигляді прізвища та імя та виведення повідомлення про сьогоднішню дату після подвійного клацання мишки

Answer 1

Ответ:

Объяснение:program WindowFunction;

uses

 SysUtils;

procedure ChangeWindow(WindowName, WindowSurname: string);

var

 TodayDate: string;

begin

 TodayDate := DateToStr(Date);

 WriteLn('Window name: ', WindowSurname, ' ', WindowName);

 WriteLn('Today''s date: ', TodayDate);

end;

begin

 ChangeWindow('Example', 'Window');

end.