Опишите процедуру загрузки изображения на задний фон игры.

космонафт   відповідь на

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр

тимофею

есть

кого

спросить

тему

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end.