Составьте алгоритм определения числа дней между двумя датами и нарисуйте блок-схему. , кто разбирается

//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366

Объяснение:

Пусть n – само число, suma – сумма его цифр, а mult – произведение. Тогда алгоритм нахождения суммы и произведения цифр можно словесно описать так:

1)Переменной suma присвоить ноль.

2)Переменной mult присвоить единицу. Присваивать 0 нельзя, так как при умножении на ноль результат будет нулевым.

3)Пока переменная n больше нуля повторять следующие действия:

4)Найти остаток от деления n на 10, то есть извлечь последнюю цифру числа.

4)Добавить извлеченную цифру к сумме и увеличить на эту цифру произведение.

6)Избавиться от последнего разряда числа n путем деления нацело на 10.

Как я понял надо поправить

Первое - cout находится в библиотеке iostream

Подключаем ее #include<iostream>

Второе для того чтобы цикл работал надо указать его имя и правильно назвать переменную. правим

for(int i = 0; i <10; i++)

Так же учти, что если хочешь, чтобы i изначально была 1(Не рекомендую, желательно начинать именно с 0 тк массивы), то пиши так

for(int i = 1; i <= 10; i++)

теперь надо вывести сообщение, но какое

если programma - переменная ее нужно объявить

если текст, то в такие скобочки ""

итого

#include <iostream>

using namespace std;

int main() {

for(int i = 0; i < 10; i++) cout << "Programma" << endl;

return 0;

}