//Наверное, мелся ввиду Unicode
var s:string;i:integer;
begin;
s:='"Скоро новыий год!"';
for i:=1 to length(s) do
write('-',ordunicode(s[i]));
<span>end.
Вывод:
34-1057-1082-1086-1088-1086-32-1085-1086-1074-1099-1080-1081-32-1075-1086-1076-33-34
</span>
Думаю а.......................
Program area;var weight,height:real;beginWriteln('введите длинну и ширину комнаты');Readln(weight,height);weight:=weight*height;Write('площадь =',weight);end.
program centner;var kg:integer;beginWriteln('введите количество килограммов');Readln(kg);kg:=kg div 100;Write('центнеров: ',kg);end.
Волна:
Волк ' на
Ворона:
Вор + она
Ива:
Иван '
Наташа:
Нота о=а + шар '
Uses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.<span>
</span>