Исправте ошибки в задаче

[саша аврамов]

Найти колличество сочетаний троек и пятерок, составляющих исходное число( больше7) и распечатать эти сочетания.
program pr1;
var a,b,c,x,y,m,i: integer;
begin
a:=(a*x+c*y);
b:=3;
c:=5;
writeln('vvedite chicla>7');
readln(a);
for i;=1 to y do
begin
m:=c*y;
if m=a then x:=0
else if m<a then x:=(a-m)/b
else m=0 y=0;
end;
for i:=1 to x do
begin
m:=b*x;
if m=b
then y=0
else if m<b
then y:=(a-m)/c
else m=0 x=0;
end;
writeln('poluchaem',b,'-',x,'',c,,'-'y);
end

[Serge_Bliznykov]

1-х, кросспостинг строго запрещён.
ваша тема тут - решение странной задачи на Pascal

2-х, тему научитесь задавать правильно - которая отражает суть задачи/проблемы

3-е, исходный код нужно форматировать тегами (кнопочка # на панели форматирования текста сообщения)

а пока данную тему я закрываю за нарушения.

Модератор