Плиз помогите! Нужна программа! Паскаль! Найти стоимость покупки книги и журнала в строке «цена одной книги 65 рублей, а

18букв, а остальные - цифры (допускается использование 10 десятичных цифр). Каждый такой идентификатор в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование; все цифры кодируются одинаковым и минимально возможным количеством бит, все буквы также кодируются одинаковым и минимально возможным количеством бит). Оп

После стирки Петя обнаружил в кармане 4 обрывка с фрагментами IP-адреса. Эти фрагменты обозначены буквами
А Б В Г.Восстановите IP адрес. В ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу
A 3.212
Б 21
В 2.12
Г .42
если кто то хорошо понимает, объясните пожалуйста)если нет то просто ответ
спасибо:))

программы для чисел от 5 до 12

7КЛАСС ИНФОРМАТИКА
1)Найти площадь квадрата и его перимитр ?
2)Найти стоимость покупки если приобретено x-штук товара по цене n-тг/кг
ЗАРАНЕЕ СПАСИБО ОТ ДУШИ !! ЭТО ОЦЕНКА ЗА ЧЕТВЕРТЬ

ВХОДНЫЕ ДАННЫЕ S- стоимость покупки с учетом скидки( если она предоставляется)

Необходимо удалить первый кратный 3 элемент массива.
program udalenie;
var i,n,k:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
while i<=n do
if a[i] mod 3=0 then
begin
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1; exit;
end;
for i:=1 to n do write(a[i],' ');
close (input);
close (output);
end.