Составить алгоритм для решения : в кафе лимонад по n руб. и мороженое по t руб. составьте алгоритм, который сообщает "возьмите сдачу", "доплатите еще" или " за покупку" при оплате покупателем за m лимонадов и r мороженых денег в размере s руб. кумир (я в нем не

Prog test;
var N,T,sum,M,R,m1,r1,ost;
begin 
write('Введите сумму лимонада и мороженного:');
read(N);
read(T);
write('Введите колво лимонадов');
read(M);
write('Введите кол-во мороженных');
read(R);
write('Введите сумму для покупки: ');
read (sum);
m1:=N*M;
r2:=T*R;
while(true)
begin
if(sum< m1+r2) then
write('доплатите ещё');
if (sum>m1+r2) then
ost:=sum-(m1+r2);
write('возмите сдачу', ost);
if(sum= m1+r2) then
за покупку');
end;
end.