var
price:real;
i:byte;
begin
write('Введите стоимость 1 кг конфет ');
readln(price);
for i := 1 to 12 do
writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');
end.
var i,n,s,a: integer;
begin
write('Сколько чисел вы хотите ввести: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do
begin
read(a);
if a mod 3=0 then s:=s+a;
end;
write('Сумма чисел кратных трём: ',s);
end.
1) Основание 10(так как есть 9)
2) Основание 5(так как есть 4)
3) Основание 8(так как есть 7)
Readln- считывание инфы в переменную , например:
var a: integer;
begin
readln(a);
writeln(a*10);
readln;
end;
Как - то так