Народ, помогите с паскалем!

Имхо, правильнее будет. Задачка 2.25. Синтаксис проверь только. Коменты почему я так считаю — в тексте проги.
Program Z_2_25;
var m,i:integer;
a,p,c,n:real;
begin
writeln('Стоимость 1 кВт энергии составляет A руб:');
readln(a);
writeln('Рост стоимости электроэнергии составляет р%:');
readln(p);
writeln('Предельно допустимые затраты семьи на электроэнергию в год составляют С руб:');
readln(c);
for i:=0 to 12 do
///1-ый месяц платим по а денег за киловат и
//цена в первом месяце остается а, цена растет со второго месяца
begin
n := a*(200 + i*50);//платим за текущий месяц
//стоимость киловата на будующий мес
// составл. стоимость на текущий + p%
//в 0-ой месяц цена == а за киловат
a:=a+a*p/100; //цена на p% выросла и в след месяце пляшем от
//нее
if (n>=C) then
writeln ('Через ', i, ' месяцев затраты превысят допустимые');
end;
readln;
end.

Ну, дружок, ты ох..ел! Людей просишь, так сделай,чтоб им удобно было, а тебе даже текст набрать влом, надо разбирать твои каракули! Атас, студенты пошли, мля!
Я сам студент. Тебя прекрасно понимаю. Помог бы тебе, но пишу на Си.

Проверь, только синтаксис.

Смотрим код для 1.3.25
Испарение, имхо, идет после изЪятия и сл. от оставшегося. Так что код, имхо, будет чуть правильнее
Program Z_1_3_25;
var m,i:integer; //i- счетчик
p,t,q,tmp_q:real; //tmp_q для вывода с учетом изъятия
begin //глобальный
writeln('Количество летучего вещества P кг:');
readln(p);
writeln('Количество вещества изымаемого каждые сутки T кг:');
readln(t);
writeln('Каждый день улетучивается q %:');
readln(q);
writeln('Укажите через какое количество суток вы хотите узнать кол-во вещества M:');
readln(m);
for i:=1 to m do
begin
if(p>0) them begin
p:=p-t; //осталось после изъятия кг
tmp_q:=(p*q)/100; //испарилось с учетом изъятия кг
p:=p-tmp_q; //осталось после испарения и изъятия
writeln('Осталось на конец %d суток %w кг вещества',i,p);
writeln(' Средний расход за %d сутки %w кг вещества',i,(t+tmp_q)/2);
end; // ифа конец
else writeln('На %d cутки в-ва не осталось',i);
end; //цикла конец
end; // глобальный
Надеюсь поможет. Чем мог, тем... Удачи!

Даже во как :)
Здесь когда-то было изображение.
Первый раз такое вижу :)

О, вот и блоксхема для 1.7.25 & 26 нарисовалась :) Прямоугольник вывода подрисую, это вроде смогаю :)) Опять же друг помог! Ну спасибо тебе! :((
Здесь когда-то было изображение.

1.4.1.25
в принципе все правильно. не знаю что требуют от вас, но когда я рисовал блок-схемы (и в школе и в инсте) от меня требовали указывать то, что выводим. соответстно блок-схема будет такой:
Здесь когда-то было изображение.
может конешн ваш препод этого и не требует, но, имхо, правильная блок схема будет тока с показанным выводом. по-этому уж лучше дорисовать во всех то что ты выводишь, нежели потом тебе препод укажет на это и скажет что блок-схема не правильная :)

Бля, самый настоящий студент!!! Ну ты гадюка напиши это неделю назад, тебе б уже все состряпали. Я могу, но только на завтра на вечер, часиков этак после 16 по Москве(по мойму будет уже поздно)

Асилил )))) с радостью помог бы, да вот только или на php (смешно звучит, да!? ) или на perl..... а вот паскаль для меня — тёмный лес....

1.7.26 тоже. Тоже друг сделал, дабл респект ему! Эх, все бы друзья так помогали..:)
program pr_1_7_26;
procedure vychisleniya(x:integer);
var
a : real;
begin
a := exp(-exp(2*ln(sin(x)))) + (3/7*x)/(1+sqrt(x))-x;
write(a:2:4);
readln;
end;
var
x : integer;
a : real;
begin
write('Enter x: ');
readln(x);
vychisleniya(x);
end.