надо решить на паскаль ABC и построить блок схему...

[Александр_Саня]

Компьютер запрашивает стоимость одного литра бензина, сумму денег и кол-во бензина, которые необходимо залить в бак. Если денег достаточно и сдачи не требуется, вывести на экран «Спасибо. Машина заправлена». Если денег внесено больше, то вывести на экран «Возьмите сдачу» и сумму сдачи. Если денег мало, то вывести на экран «Не хватает» и указать размер недостающей суммы и на сколько литров бензина хватает денег.

[hiho]

   readln(stoimost, dengi, litrov);
   if (stoimost*litrov = dengi) then writeln('Спасибо')
   else if (stoimost*litrov < dengi) then writeln('сдача: ', dengi-stoimost*litrov)
         else writeln('Доплатите:', stoimost*litrov - dengi);

Как-то так. К тому же можно(нужно) вынести подсчет всей цены в одну строчу, а не пересчитывать каждый раз.

[Александр_Саня]

Сообщение от hiho

   readln(stoimost, dengi, litrov);
   if (stoimost*litrov = dengi) then writeln('Спасибо')
   else if (stoimost*litrov < dengi) then writeln('сдача: ', dengi-stoimost*litrov)
         else writeln('Доплатите:', stoimost*litrov - dengi);

Как-то так. К тому же можно(нужно) вынести подсчет всей цены в одну строчу, а не пересчитывать каждый раз.

Спасибо, но есть одно но...она не пашет в паскаль АВС

[Hacker19_90]

Конкретней говорите, что не работает!
Что компилятор говорит?

[Александр_Саня]

Сообщение от Hacker19_90

Конкретней говорите, что не работает!
Что компилятор говорит?

Program1.pas(1) : Ожидалось begin

[Serge_Bliznykov]

Program1.pas(1) : Ожидалось begin

ну разумеется. добавьте описание переменных (секция var)
добавьте перед кодом начальный begin
после кода завершающий end. (именно с точкой).

и после этого проверяйте. А так вы проверяете не целую программу - а её часть.
Разумеется, что она не компилируется.