Кое что убрал - работает, только свои данные введи (фамилия и т.д.)
uses graphabc;var s,f,i,o: string; j: byte; pic: integer;begin s:='AVALON';f:='FAMILY';i:='name';o:='second name'; setfontcolor(clred);setwindowsize(550,250);setfontsize(20);setfontstyle(fsbold);for j:=1 to length(s) do textout(10,(j*40)-40,s[j]);setpencolor(clred);setbrushcolor(clred);rectangle(30,120,550,125);setfontcolor(clblue);setbrushcolor(clwhite);setfontname('Tahoma');setfontsize(16);SetFontStyle(fsnormal);textout(300,10,f);SetFontStyle(fsItalic);textout(300,50,i);textout(300,90,o);setpenwidth(6);for j:=1 to 10 do arc(500+(j*30),420,300,0,180);setfontname('Times');setfontsize(26);textout(40,150,'Something for good');end.
#1 program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end. #2 program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a); if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
1. Машина. Сколько машин существуют на свете? Оооочень много. 2. Береза. Тот же случай 6. Операционная система. Это не личное название, поэтому оно и общее. 7. Клавиатурный тренажер.