Как составить программу в паскале с поздравлением и какой-нибудь открыткой

Видимо проблемы у тебя с чтением

Сам сделал. Вот кому надо
program abc;
uses crt, graphabc;
var pic,x,y,w,h:integer;
begin
setwindowsize(600,400);
pic:=loadpicture('Весна. jpg');
setpicturetransparent(pic,true);
begin
clearwindow;
drawpicture(pic,380,70,250,320);
sleep(20);
redraw;
end;
setbrushstyle(bsclear);
setfontcolor(clred);
setfontsize(20);
setfontstyle(fsbold);
textout(30,00,'Давно простились мы с зимой, ');
textout(30,20,'Весна пришла, звенит ручей');
textout(30,40,'Вернулись ласточки домой');
textout(30,60,'И нам с весною веселей. ');
end.