C++ :

#include<iostream>
using namespace std;
int main()
{
int a,b;
cin>>a>>b;
cout<<a%b<<endl;
return 0;
}

Pascal :

var a,b:longint;
begin
  readln(a,b);
  writeln(a mod b);
end.