Задание не полное.
Рисунок задания взят с интернета
Свои ответы добавлены темно-зеленым цветом
Var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
<span>end.</span>
Var t,v:integer;
begin
readln(t,v);
writeln(v*t);
<span>end.</span>
Это компьютерная графика, а именно художественная и рекламная графика благодаря телевидению стала популярной. С помощью компьютерной графики создаются мультфильмы, видеоролики, презентации и компьютерные игры.