Составьте программу в Паскаль. В кафе продают лимонад по N руб. и мороженое по T руб. Составьте алгоритм, который сообщает "возьмите сдачу", "доплатите еще" или "спасибо за покупку" при оплате покупателем за M лимонадов и R мороженых денег в размере S руб.

var n,t,m,r,s,raznica:real;begin    writeln('Цена лимонада?');    readln(n);    writeln('Цена мороженого?');    readln(t);    writeln('Сколько покупаете лимонада?');    readln(m);    writeln('Сколько покупаете мороженого?');    readln(r);    writeln('Сколько даёте денег?');    readln(s);    raznica:=s-(n*m+t*r);    if raznica =0 then writeln('Спасибо за покупку!') else if raznica>0 then writeln('Возьмите сдачу: ', raznica, ' рублей') else writeln('Доплатите ещё ', abs(raznica), ' рублей');end.