Составить алгоритм для решения задачи: В кафе продают лимонад по 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(sumlt; m1+r2) then
write(доплатите ещё);
if (sumgt;m1+r2) then
ost:=sum-(m1+r2);
write(возмите сдачу, ost);
if(sum= m1+r2) then
write(спасибо за покупку);
end;
end.