Посчитать текущий взнос кредита (Pascal -> Asm) - Assembler

var st:string;
    m,k:integer;
    s,f,p,c:real;
begin
repeat
write('Введите сумму кредита s=');
readln(st);
val(st,s,k);
if(k<>0)or(s<=0) then writeln('Сумма взноса должна быть целым положительным числом');
until(k=0)and(s>0);
repeat
write('Введите сумму первого взноса f=');
readln(st);
val(st,f,k);
if(k<>0)or(f<=0) then writeln('Сумма первого взноса должна быть целым положительным числом');
until(k=0)and(f>0);
repeat
write('Введите количество месяцев');
readln(st);
val(st,m,k);
if(k<>0)or(m<=0) then writeln('Количество месяцев должно быть целым положительным числом');
until(k=0)and(m>0);
if m<6 then p:=0.015
else if m>10 then p:=0.03
else p:=0.02;
c:=(s-f)/m*(1+p);
writeln(c:0:2)
end.