В банк, на депозит, кладеться певна сума грошей (Початковий внесок). За кожен місяць банк нараховує відсотки відповідно до відсоткової ставки. Якщо сума на депозитному рахунку більша за 10 000грн банк збільшує відсоткову ставку на 2%. - Розрахуй помісячно суму коштів на рахунку протягом 24 місяців; - Обчисли дохід за 24 місяці; - Побудуй графік зміни суми на рахунку.

//Блок-схема во вложении
//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

Виртуальное общения - знакомая ситуация для нашего времени. Люди знакомится в социальных сетях, общаются, иногда встречаются реальной жизни.
Это может быть полезным - пообщаться с человеком, который тебя не знает, услышать его непредвзятое мнение. Сеть дает расслабиться.
Ты можешь быть кем угодно, с какой угодно внешностью и характером.
Это дает свободу мошенникам и разнообразным шутникам, которым нечего делать, кроме как издеваться над людьми. В этом заключается вред виртуального общения - ты не знаешь с кем переписываешься.
Я не против такого общения, но нужно быть осторожным.